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BBB88B8 000000 000000 ccccccce 
BBBBBBB 000000 000000 ccccccce 
BB BB 00 00 00 oo cc 
BB BB 00 00 00 oo CC 
BB BB 00 00 00 oo CC 
8B BB 00 00 00 oo CC 
BBBBBBBB 00 00 00 oo cc 
BBBBBBBB 00 00 00 oo cc 
BB BB 00 00 00 oo cc 
BB BB 00 00 00 oo cc 

B 00 00 00 oo cc 
BB 00 00 00 oo cc 
BBBBBBBB 000000 000000 ccccccce 
BBBBSBBB 000000 000000 cccccccc 


DDDDDDDD 

DDDDDDDD 

DD D 

DD DD 

DD DD 

DD DD 

DD DD 

DD DD 

DD DD 

DD DD 

DD DD eeene 
DD DD cece 
DDDDDDDD cece 
DDDDDDDD coe 


C 11 
SYSBOOCMD - Command parsing for SYSBOOT 16-SEP-1984 00:05:41 VAX/VMS Macro v04-00 Page 0 
Table of contents 


PARSE TABLES 
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BOOSUSECUR = Use parameters from current image 
BOOSSHOWV = Routine to show one parameter value 
BOOSNOCHECK = Disable value checking 
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BOOSSEARCH = Lookup parameter name 

BOOSSETVALUE = Store parameter value 

BOOSSETASCII = Action routine to set ASCII parameter type 
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NDF ,CMDSW 
LE SYSBOOCMD = Command parsing for SYSBOOT 


oe SYSGENCMD = Command parsing for SYSGEN 
IDENT ‘V04-000' 
«DEFAULT DISPLACEMENT ,LONG 


| eanenetedduannnnsounenesosineannananseendennenennndannenenneneennenénbonnens 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS i ictie 4 weenie UNDER A LICENSE AND MAY BE USED AND sor iee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THe ABOVE git NOTICE. THIS SOFTWARE OR ANY OTHER 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
® 
te 
® 
*® 
** 
-* 
: 
:® 
# TRANSFERRED. 
** 
** 
*® 
band 
® 
*® 
** 
sf 
:® 
**® 


lf 
TIT 
oIFF 
«TIT 
E 


5 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+ 
+ 


Facility: System generation and initialization 


Abstract: SYSBOOCMD is the interpreter for parameter modification 
Se ae both at bootstrap time and as part of the sysgen utility 


Environment: 
Both SYSGEN and SYSBOOT environments. 


LARRRAARAAASASSASAALALALAL ASL A SE SS 


WARNING: SYSBOOT code must be PIC 

FAA RALARAASALALZALALEALASASSEEALESSE | 
Author: RICHARD I. HUSTVEDT, Creation date: 4-MAY-1978 
Modified by: 


v03-027 encore Bill Matthews 02-aug-1984 
Fix bad move instruction in BOOSSETSTART a 5103-026. 


V03-026 WHMO011 Bill Matthews 01-aug-1984 
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4-SEP-19 BOOTS .SRCJSYSBOOCMD.MAR; 1 
Fix SET/STARTUP bug from v03-024. 
v03-025 pene Bi 


LLM 23-Jul-1984 
n : ualifier ° an ° 
che ry inscP qualifi 7EMALL to /MINIMUM d /FRACTION t 


V03-024 wHM0009 Bill Matthews 19-Jun-1984 
fixed LOAD<CR> accvio. Fixed SET ascii-parameter 0 bug. 
Now allow an optional : and = in SET/STARTUP filespec. 
Now allow optional : in device name of the CONNECT command. 


v03-023 et ie Bilt Matthews 20-Apr-1984 
Fixed § an ascii parameter to DEFAULT bug. 
Kamel Use. CURRENT that read SYSGEN parameters from SYS.EXE. 


Oo ouw 
WN SO OONAUES WN SO OONAUES WN OUWONAULS WN —OO0M 


00 $ 

00 3 

00 3 

3 69 ; 

00068 

00 64 : 

000 65 ; 

000 66 ; 

000 67 ; 

00068: 

000 5 : 

000 1 3 

000 72; 

000 "3 3 v03-022 wHM0007 Bill Matthews 11-Apr-1984 
44 f : Removed the QUORUM command. 

0000 76: V03-021 WHM0006 Bill Matthews 04-Apr-1984 
0000 77 2 Added support for sysgen ascii parameters longer than 4 
0000 78; characters. 

464 0 : Added support for a seperate default system parameter file. 
0000 «sg: v03-020 JLV0342 Jake VanNoy 3-APR-1984 
+464 : : Add TERMINAL/ECHO command. 
0000 84 : v03-019 WHMOOOS Bill Matthews 14-Mar-1984 
0000 85 ; Conditionally assembled TPARSE tables for, SYSBOOT. 
0000 86 ; Change ascii input specifier from ZA t 
44 : ; Output header for display of a Slesle’ sarencter value. 
0000 «89: v¥03-018 wHM0004 Bill Matthews 13-Mar-1984 
0000 90 ; Move Sot tareces of BOOSGL_LOAD_ARGS from this module 
8008 4 : to SYSGEN.MAR. 
0000 ; V03-017 WHMO003 Bill Matthews 23-Feb-1984 
444 ae ; Add support for loading and starting the MSCP server. 
0000 (96: v03-016 WwHM0002 Bill Matthews 01-Feb-1984 
3208 a 3 Add support for SHOW/LGI. 
0000 (99; v03-015 ACG0392 Andrew C. Goldstein, 19-Jan-1984 22:40 
44 130 3 Tie off SYSSFILESCAN. lor TPARSE use 
$000 136 : v03-014 wHM0001 Bill Matthews 14-Dec-1983 
0000 103; Add /REMOTE and /LOGICAL switches to the CONNECT CONSOLE command 
4 ie : Add /VECTOR_OFFSET and bck OFFSET to the CONNECT command 
9000 106 ; v03-013 wACO013 Wayne Cardoza 01-Dec-1983 

O60 Hf 3 Allow arbitrary sheets of install qualifiers 
8005 109 : v03-012 JLV0311 VanNo 10-OCT-1983 
44 119 : Fix SHOW/ALL to noe A SHOW/ALL. 
$008 ie : v03-011 SRB0103 Steve Beckhardt 19-Sep-1983 
49 7 : Added temporary QUORUM command. 


re ; 
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| ¥04=000 ° Sepa} 9ee Seibert) Lanoveosneiersuoccs.mar:1 P29" (2, i 
| 000 115; v03-010 ey tH Benn Schreiber 13-Sep-1983 
| O88 118 ; Use TPAS_SYMBOL for %A so that ‘$' and '_* are allowed. 
099 118 ; v03-009 ACG0345 Andrew C. Goldstein 1=Aug=1983 16:53 
00 119 ; Add dummy SYSSASCTOID routine for TPARSE 
$009 121: v03-008 MSHO005 rye Hinden 13-Jul-1983 
0000 1 ¢ 3 Don't need to echo input anymore. 
44 ; ? ; Set ascii parameters correctly if smaller than a lLongword. 
$005 125 : v03-007 MSHO004 ann Hinde 24-Jun-1983 
464 ! § : Change SBOODEF to O SBOOCMDDEF’ 
0000 128: V03-006 MSHO003 Maryann Hinde 10-Jun-1983 
0000 129 Use SBOODEF. , - ve 
0000 131: v03-005 mst 0002 Maryann Hinden 14-Apr-1983 
44 136 : Teach SYSGEN to speak ASCII. 
0000 134; v03-004 MSHO001 Maryann Hinden 24-Mar-1983 
0000 135; Preserve values for system time and base registers 
44 138 : across USE DEFAULT ont USE CURRENT commands. 
0000 138: V03-003 pwT0086 David W. Thiel 22-Mar-1983 
0000 139; Add PRMSM_CLUSTER to SHOW/ALE mask. Add 
464 109 ; SHOW/CLUSTER. 
0000 136 : v03-002 wMc0001 Wayne Cardoza Aug 1982 
464 re ; Add support for the /checkpoint makteler” on nstall /page 
0000 145; v03-001 JLV0196 Jake 17-MAR-1982 
8008 198 : Add new parsing for CREATE. Add PRMSM_SCS, PRMSM_TTY 
000 147; and PRMSM_SYSGEN to SHOW/ALL mask. Change BOOSSEARCH 
0000 148; to return no such parameter if a search for a zero 
0000 149; length parameter is passed in. 
0000 150; 
0000 151 ;-- 
0000 13 
000 153; 
4 13 3 Include files: 
0000 136 F SBOOCMDDEF ; Flag bits in command options longword 
0000 15 SCLUBDEF ; Cluster block offsets 
00 138 SIPLDEF ; a M defs 
00 15 SPRVDEF 3 Pr vilege. dot inittons 
00 160 SPCBDEF ; PCB offse — 
000 161 SPRMDEF 3; Parameter y Snare definitions 
0000 196 SSSDEF 3 System messages 
000 16 SSYSGMSGDEF 3 Sysgen messa ge s 
000 164 STPADEF 3; Define TPARSE symbols 
000 165 
000 168 3 
BS 16 MACROS: 
000 169 
$0 196 Macro to print message 
00 171 ; 
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tae tit ° 9 P=1984 4 9% 82: 4} BOOTS. SRC SYSBOOCMD .MAR; 1 ~~ (1) 
p 178 i MSG message_text 
174° MACRO MSG,ST : 
175 SBW 6s: BOOS FAC MSG : 
176 eASCIZ \'STR'\ : 
17 -ENDM MSG $ 
00 178: 
° ! 0: ; Equated Symbols: 
000000D 1 : ; CR=1 : Character value for carriage return 
Sa Sa j Rites sates er fee fee 
s 3 Chara ue for Line fee 
90000100 9000 185 BUFFER_SIZE=256 : 


ve - ——— en a — — _——— ee —_ — 
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_wol=0p PARSE TABLES ° pate} 90:03:41 Yeoors sre SYSBOOCMD.MAR; 1 ew 
| 1 .SBTTL PARSE TABLES 
190 : DEFINE COMMAND SYNTAX 
0 131 } 
| 0 9 138 SINIT_STATE STATE1,KEYTBL ; 
0 194 S$STATE ; 
000 195 STRAN '!DISABLCMD, TPAS_EXIT ; Disable option command 
900 196 STRAN ENABLCMD.fPAS EXIT =: Enable option command 
999 19 STRAN ‘HELP’, TPAS EXTT,BOOSGIVEHELP ; Help command 
198 STRAN 'SETCMO, TPAS_EXIf 3 Set specific value 
0 3 19 STRAN '!SHOCMD,TPAS_EXIT ; Show values 
0 00 STRAN '!USECMD,TPAS_ EXIT : Set bockground values 
909 01 STRAN ‘EXIT’, fPAS_EXIT, ,BOOCMDSM_CONT,BOOSGL_CMDOPT ; Same as continue 
4 88 If NOF ,CMDSW : SYSBOOT spec i fic commands 
9000 04 STRAN ‘CONTINUE’, TPAS_EXIT, ,BOOCMDSM_CONT ,BOOSGL_CMDOPT ; Continue command 
0000 86 a IFF 3;SYSGEN specific commands 
0000 0 STRAN ‘!ADPCMD, TPAS_EXIT,BOOSCONADP ; Set adapter TR number 
0000 208 STRAN ‘CONECTCMD, TPAS_EXIT,BOOSCONNECT ; Connect command 
6000 09 STRAN !CREATECMD,TPAS_EXIT,BOOSCREATE ; Create Cmo/pege/ oars file 
0000 10 STRAN !INSTALCMD,TPAS EXIT,BOOSINSTALL; Install swap/page file 
0000 211 STRAN ‘LOADCMD, TPA E IT, BOOSLOAD : Load driver 
0000 iF STRAN ‘iRELOADCMD, TPAS EXIT, BOOSRELOAD : Reload driver 
0000 21 STRAN ‘MSCPCMD, TPAS ERIT,BOOSL * Load and start the MSCP server 
0000 214 STRAN ‘iSHARECMD,TPAS EXIT, GENSSHARE ; Share command 
0000 215 STRAN ‘WRTCMD, TPAS ERIT ; Write parameter file 
0000 1 STRAN ‘AUTOCONFIG,TPAS_EXIT ; Auto-configure command 
0000 21 STRAN ‘CONFIGCMD, TPA$ EXIT, BOOSCONF IGURE 
0000 18 STRAN 'TERMINALCMD, TPAS_EXIT ; terminal command 
9000 19 ~ENDC 
9009 : STRAN TPAS_EOS,TPAS_EXIT : END OF LINE 
0000 : 
44 : : Disable command 
$008 y : SSTATE DISABLCMD : Disable command 
9000 , STRAN *DISABLE' : Command verb 
0000 4 STRAN "CHECKS", TPAS_EXIT ,BOOSNOCHECK ; Disable value checking 
O60 1; Recognize ENABLE command 
000 j ‘ SSTATE ENABLCMD : ENABLE command 
000 4 STRAN ‘ENABLE’ ; Command verb 
000 5 SSTATE 3 
99 6 STRAN ‘CHECKS’, TPAS_EXIT,BOOSCHECK ~; 
00 3 
000 33 : Recognize SET Command 
$00 41° SSTATE SETCMD > SET command 
000 tg STRAN ‘SET : Command verb 
4 SSTATE : 
0 44 STRAN ‘'/*, SETSPEC ; 


Eee Sa... 
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TRAN ‘°.°,,BOOSDOT 3; Use last name 
TPAS “SYMBOL, ,BOOSSEARCH ; Lookup and verify symbol name 


TRAN ‘ASCII, TPAS_EXIT * Verify and set ASCII string 
TRAN iNUMBER, TPAS EXIT BOOSSETVALUE ; Verify and set value 
SDEEAULT* TPA LEXIT,BOOSSETDEF : Set to default value 


TRAN 'SETSTARTUP,TPAS_EXIT |; Set startup file name 
iSETOUTPUT, fPAS_EXIT  : Set output filespec 
sc 


=o 


a ' 
PARS 


~ 
> 
2 


~ 
cag 
2 


$" BLANK, SYMBOL ; ignore blanks 
‘** |TPAS_EXIT,BOOSSETBLANK; null string => all blanks 


TRAN °*"* ,TPAS_EXIT 
STATE SETOUTPUT 
A ‘OUTPUT’ 


PF RPRPHMHAHHOESE VSS SSSVSES 
zaa4w z@ @ = 
Pag 
z 


STRAN !SEPARATOR s2or: 
STRAN TPAS_LAMBDA ; Or null 


STRAN ! FILESPEC 
STRAN TPAS_EOS, TPAS_EXIT,BOOSSET_OUTPUT 


SSTATE SETSTARTUP 
*STARTUP® 


STRAN !SEPARATOR :2or: 
STRAN  TPAS_LAMBDA : Or null 


'FILESPEC 
TPAS_EOS, TPAS_EXIT,BOOSSETSTART 
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Recognize SHOW Command 


SSTATE SHOCMD 3; SHOW command 
STRAN ‘ P : Command verb 
qoyeuitce : 


$ *." SHOWONE ,BOOSDOT > SHOW . 
STRAN TPA$_ SYMBOL . SHOWONE ,BOOSSEARCH ; Lookup and verify symbol name 


STRAN HEX, SHOSWITCH, .BOOCHDSA DISHEX ,BOOSGL_CMDOPT 
STRAN ‘ACP*,HEXQUAL2,,,.PRMSM_ACP; SHOW/ACP 


: Note that PRMSM_ALL doesn't exist in SPRMDEF. It is used here simply as 
3 a flag to BOOSSAROALL. 


PRMSV_ALL = 31 
PRMSM~ALL = 1@PRMSV_ALL 
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SSTATE 
STRAN 


SSTATE 
STRAN 


SSTATE 


: Recognize USE 


SSTATE 
N 
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SHOW/ALL 

"RMS" HEX ooo eSPRMSA_ RMS>: SHOW/ Ras 

"SCS HOW/SCS 

“SPECIAL! gex XQUAL2, cage an SPECIAL: SHOW/ SPECIAL 

GEN" SHEXQUAL soeed sn: SvSGEN3: SHOW/GEN (Sysgen Parameters) 
"JOB" . HEXQUAL so 006 PRMSA JBC>; SHOW/JOB (Job controller) 

*PQL' ,HEXQUAL2,,,,<PRMSM_ PQL>: SHOW/PQL (Process quota List) 
"TTY’ HEXQUALC,,,,<PRMSM_TTY>: SHOW/TTY 


1" (HEX SM-LGI>; LG! 
;CLUSTER® -HEXQUALC. .<PRASM CLUSTER |: SHOW/CLUSTER show cluster 
"NAMES, TPAS EXIT ,BOOSSHONAMES i SHOW/ NAME S show oy par eneter names 
M HOW/MAJOR show major para 
<PRMSM DYNANI CD; siou/DYNARL. show dyn. params. 
ene, *TPAS vexit, &60$SHOSTAR j ,SMO/STARTUP Show startup file 


YSGEN B. -wHh & geet Store 
ADAPTER’ , TPAS_EXIT, BOOSSHOW wad See 
“CONFIGURATION SHOWCON, BOOSRESET_ 10 SHOU/ CONF IGURATION 
'SHOW_UNIBUS, TPAS_EXIT 37 /UNIBUS 
iDEV_OR_DRIV, TPAS_EXIT : IDEVETES and /DRIVER 


a ALL; 


SHOWONE value name 
IPAS _LAMBDA, TPAS_EXIT, BobssHovAl or : 
HE XQUAL2 
HE XQUAL , TPAS_EX1T ,BOOSSHOALL 
HE XQUAL 
a fh 
TPAS_LAMBDA, TPAS_EXIT 
"HEX", TPAS_EXIT, ,BOOCMDSM_DI SHEX ,BOOSGL_CMDOPT 
command 


USECMD : 
"USE", ,BOOCMDSM_USEFILE,BOOSGL_CMDOPT ; 


tUSECUR 
;USEACT 


:USEDEF 
iFILESPEC, ,BOOSUSEF ILE 
TPAS_LAMBDA, TPAS_EXIT 


USECUR ; USE CURRENT 
CURRENT? 

TPAS_EOS, TPAS_EXIT ,BOOSUSECUR 

USEACT : USE ACTIVE 
ACTIVE! 


TPAS_EOS, TPAS_EXIT ,BOOSUSEACT 


K 11 
| SysSQpERO Pa oe | persing for SYSBOOT i as ta tS 9 90:03:61 yale Macro Vv04-00 Page dy 


SE TABL 4 BOOTS. SRCJSYSBOOCMD.MAR; 1 
0 9 SSTATE USEDEF ; USE DEFAULT 
9 9 STRAN DEFAULT' 
09 6¢ STRAN TPAS_EOS, TPAS_EXIT, ,BOOCMDSM_DEF AULT ,BOOSGL_CMDOPT : 
0 64 ; 
3 o3 : File Specification 
00 83 ’ SSTATE FILESPEC ; GENERAL FILE SPEC CHECK 
909 ‘3 STRAN TPAS_LAMBDA, TPAS_EXIT,BOOSF ILESPEC 
0 : 
$8 7 : RECOGNIZE NUMBER 
0 6 "4 : SSTATE NUMBER : 
999 74 STRAN TPAS_DECIMAL,TPAS_EXIT : DECIMAL NUMBER 
000 375 STRAN 'X" : BASE PREFIX 
000 id: SSTATE ; 
0000 37 STRAN 'X* ,HEXNUM + HEX BASE DESIGNATOR 
909 28 STRAN ‘O" ; OCTAL NUMBER 
000 37 SSTATE : 
9000 80 STRAN  TPAS_OCTAL,TPAS_EXIT |; INTRODUCED OCTAL NUMBER 
000 1 SSTATE HEXNOM : INTRODUCED HEX NUMBER 
0000 Be TRAN TPAS_HEX, TPAS_EXIT : HEX NUMBER 
0000 384 
9000 85 t RECOGNIZE SWITCH/VALUE SEPARATOR 
0000 387° SSTATE SEPARATOR ; 
0000 388 STRAN ‘=', TPAS_EXIT : 
0000 389 STRAN °:". TPASTEXIT : 
9000 391 
44 4 > Get a numeric qualifier value 
0000 394 ° SSTATE VALUE 3 Get value for option 
$333 ate sePheate : 
9000 97 STRAN 'NUMBER, TPAS_EXIT ; 
464 inp If DF ,CMDSW :SYSGEN specific commands 
9444 $8) : Adapter command 
it 403 ° SSTATE ADPCMD ; Command to set adapter TR number 
9000 404 STRAN "ADAPTER’, ,BOOSRESET_ADAP ; Command verb 
0 406 STRAN  '!NUMBER, TPAS_EXIT : Numeric value 
9 4 STRAN ‘ADAP_STR,TPAS_EXIT : Generic Name 
000 408 
900 410 : Autoconfigure command 
$00 a . SSTATE AUTOCONFIG ; Auto configure command 
900 413 STRAN "AUTOCONF IGURE*, ,BOOSRESETLIST : Command verb 
000 415 STRAN ALL", CONFIGALL > Configure all 
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v04- PARSE TABLES . pat et} 99:82 34) Yeoots Ske SYSBOOCMD.MAR; 1 . (1) 
0 $18 STRAN ‘'!NUMBER 3; Configure one TR number 
re gia !ADAP_STR2 ; Generic Name 
999 ‘19 STRAN =! AUTOOPT, TPAS_EXIT ,BOOSCONF I GONE : 
0000 421 SSTATE CONFIGALL : 
B28 2 ¢ STRAN 'AUTOOPT, TPAS_EXIT ,BOOSCONF IGALL HY 
0900 424 SSTATE AUTOOPT 3; Select option 
000 425 STRAN '‘/' : Switch introducer 
4444 : $ gree TPAS_LAMBDA,TPAS_EXIT ; Else not specified 
$000 428 STRAN *LOG' ,AUTOOPT, ,BOOCMDSM AUTOLOG BOOSGL_CMDOPT ; LOG DEVICES 
0000 429 STRAN ‘SELECT’ ,,,BOOCMDSM_SELECT,BOO$GL_CMDOPT ; Option name 
0000 430 STRAN "EXCLUDE", . ,BOOCMDSM_EXCLUDE ,BOOSGL_CMDOPT 
0000 431 ; Reverse sense of select 
0000 $36 SSTATE 3 
0000 43 STRAN 'SEPARATOR $3: ors 
0000 434 SSTATE : 
0000 435 STRAN ‘(° ; Allow parentheses 
464 $38 STRAN TPAS_LAMBDA 3 But make it optional 
0000 438 SSTATE SELECTLIST ; Device selectlist | 
0000 439 STRAN TPAS_SYMBOL, ,BOOSMAKLIST j Select string 
0000 440 STRAN wy OP 3; End ‘ 
0000 441 STRAN TPA$_LAMBDA,AUTOOPT : Else end of List 
0000 at SSTATE : , : 
0000 44 STRAN <‘','>,SELECTLIST : Another option in List 
0000 444 STRAN TPAS_LAMBDA,SELECTLIST ; Else end 
0000 445 
0000 446; 
0000 447 ; CONFIGURE command 
0000 448; 
0000 449 
0000 450 SSTATE CONFIGCMD | 
0000 451 TRAN ‘CONFIGURE’, ,BOOSRESET_IO ; Reset 10 and AUTORESET of devices names 
0000 $36 SSTATE 
0000 45 TRAN 'CONFIG_LIST 
0000 454 STRAN TPAS_LAMBDA,TPAS_EXIT 
0000 455 
0000 456 SSTATE CONFIG LIST 
0000 457 STRAN ‘CONFIG OPT, CONFIG LIST 
0000 $38 STRAN TPA$S_LAMBDA, TPAS_ERIT 
6009 460 SSTATE CONF IG_OPT 
000 461 STRAN “g* 
44 $06 SSTATE 
000 46 STRAN ‘INPUT, TPA$S_EXIT 
0000 464 STRAN ‘OUTPUT, TPAS EXIT 
000 465 STRAN ‘RESET, TPAS_EXIT 
000 466 
bay 467 SSTATE INPUT 
B08 468 STRAN * INPUT 
0 ry SSTATE 
oh 470 STRAN ‘SEPARATOR 
471 SSTATE 
0 472 STRAN 'FILESPEC, TPAS_EXIT ,BOOSINPUT_F ILE 
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v04-000 PARSE TABLES ° raise} 99: 82: 731 Heoors sre SYSBOOCMD .MAR; 1 . (1) 
000 473 
4 474 SSTATE OUTPUT 
0 475 STRAN *OUTPUT' 
000 478 SSTATE 
000 47 STRAN 'SEPARATOR 
000 $78 SSTATE 
44 t4 STRAN !FILESPEC,TPAS_EXIT,BCOSOUTPUT_FILE 
$000 ty SSTATE RESET 
0000 186 STRAN ‘RESET’, TPAS io action,this is the default 
9000 483 STRAN ‘'NORESET', TERS. EXIT, BOOSNO_ RESET’; et reset off this call 
$000 485 
444 486 ; 
9444 rth :; Create command - Create contiguous file for paging, swapping or system dump 
0000 489 SSTATE FREATECHO 
0000 490 TRAN ‘CREA ye + Connond verb 
0000 491 SSTATE CREOPT : Create options 
0000 $36 STRAN nr EAT 
0000 49 STRAN '‘FILESPEC eeneoer BOOSSETF ILNAN: Set name of file 
0000 49% STRAN TPAS_EOS, TPAS_EXIT 
0000 495 
0000 496 SSTATE CREATE_QUAL 
0000 497 STRAN ‘CONTIGUOUS’, CREOPT, BOOSCRE CONTIG ; Contiguous 
0000 498 STRAN 'NOCONTIGUOUS', CREOPT ,BOOSCRENCONTIG : Set non=cont iguous 
0000 499 STRA “Size” : Get the allocation size 
0000 309 SSTATE 
9000 201 STRAN !VALUE,CREOPT,BOOSFILESIZE ; Set file size 
B00 207 3; Connect command - Connect specified device and load driver if required 
0000 505 STATE CONECTCM D 
0000 506 TRAN ‘CONNECT’ , BOOSCONRESET : Command verb 
0000 507 SSTATE : 
0000 508 STRAN ‘CONSOLE*,CONSOLCMD 3 Connect console command 
0000 509 STRAN TPAS -SYMBOL , ,BOOSDEVNAME ; Device name 
0000 510 SSTATE gh 
0000 = 38511 STRAN ':' , ot ban an optional *’: 
0000 216 STRA TPAS_LAMBDA Fs 
0000 2] $STATE CONOP ; - 
0000 14 STRAN !CONECTOPT,CONOPT 3; Connect option 
0000 31? STRAN TPAS “LAMBDA, TPAS_EXIT : 
$008 213 3; Connect console command 
0000 518; 
0000 Hh 4 SSTATE CONSOLCMD 
44 289 STRAN '!CONSOLOPT,TPAS$_EXIT.BOOSCONSOLE; 
44 : § SSTATE CONSOLOPT 
000 STRAN ‘/' 
44 5 : seu TPAS_LAMBDA, TPAS_EXIT 
$00 2 6 STRAN *REMOTE® TPAS EXIT, .BOOCMDSM_REMOTE ,BOOSGL _CMDOPT; Connect remote co 
B08 527 STRAN ‘LOGICAL’, TPAS EXIf BOOCMDSA_ LOGICAL ,BOOSGL _CMDOPT; Connect logical 
000 3 8 STRAN TPAS$_LAMBOA,TPAS_EXiTf 
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4 6:31 taoors. sRe SYSBOOCMD .MAR; 1 


Recognize INSTALL command 


INSTALCMD F 
" INSTALL’ 3 
LESPEC, .BOOSSETF ILNAM; 


IN 
FI 
INS 3 
a ae 3; Switch introducer 
:PAGEFILE?, 
"SWAPFILE" r INS, 
"CHECKPOINT 
sEHECKPOINE IRS PA SiGe. BOOSNOCHKPNT 


TPAS_EOS, TPAS_EXIT 


"CHECKPOINT" ,TPAS_EXIT 
TNOCHECKPOINT *, TPA$_EXIT ,BOOSNOCHKPNT 


05 


; look for the checkpoint switch 


LCAGEFILE® . BOOSSETPEFL 
TPAS_EOS, TPAS_EXIT 


Recognize LOAD command 


LOADCMD ; 
*LOAD', ,BOOSCONRESET; Command verb 


'FILESPEC, TPAS_EXIT ,BOOSCONDRVNAM 
TPAS_LAMBDA,MSCP 


Recognize MSCP command 


MSCPCMD 
*MSCP_LOAD’, ,BOOSMSCP_RESET ; Loading and starting the MSCP server 


!MSCPOPT ,MSCP 
TPAS_LAMBDA, TPAS EXIT 
MSC POPT 


PARAMETER 2 


OOSMSCP ~AnGe og 28 ;BUF 
PAC ARAN TER 3 


B FE 
BOOSMSCF~ARG.. KE 

OOSMSCP_ARG,..4 :H sts AM 
T,BOOSMSCP_ARG,..5; TIME S PARAMETER 5 
teat ARG,» 6; PRO S PARAMETER 6 


a4 noes ARG RAMETER 7 
ARG vb: FRAC ACTION 1S PARAMETER 8 
ai PaARG Ozh MENT COUNT 

Ti bods MARGT tosp BARAMETER 1 


feet BY 
2» 


See tate 
Damn 04 = UW 
v 
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; STRAN 
SSTATE MSCP PACKET 

STRAN 

STRAN *P3" ,VALU 

SSTATE MSCP_HOSTS 

STRAN 2 
STRAN ° 
SSTATE ™ 
STRAN ‘ 
STRAN ‘ 
SSTATE M 
$TRAN ' 
$STRAN ° 
SSTATE 
STRAN 
STRAN ° 
SSTATE mM 


i STRAN BUFFER” - VALUE 


ooo 


pee le) ee we le wlan ol alo lol ololelololol alo lo) @ 
sooo 


> *) 
o 


P_TIME OUT 
ME_OUT’, VALUE 
* VALUE 


v 
PRIORITY 
ot Sa 


P_FRACTION 
rae ge 


SSTATE LOADARGCNT 
STRAN ‘ARGCOUNT', VALUE 


SSTATE LOADP1 
$TRAN ‘P1', VALUE 


Recognize RELOAD command 


SSTATE RELOADCMD 
STRAN ‘RELOAD’ ,LOAD1, BOOSCONRESET; Command verb 


MIMMMMNININ 3 3 3 2 St SS S| “DOOD OOCOCOCOCOCOWOWUOOOOvOnO 


> Share command - Initialize and/or connect to a shared memory 


SSTATE SHARE CMD 

STRAN TCHARES. GENSSHR_RESET ; Command verb 
SSTATE SHARECMOOPT 
STRAN F egt g al  etekaeeat ; Command options 
STRAN TPAS_LAMBDA 


AN ‘RM’ ; Multiport memory ‘‘MPMx'* 


LPRDPQRDPPAAAAAAAA AAA AAA AAXA AAA AAA AAAAAAAAAAAAOAAAO OO MINIM 
WR =O OONAUE WN 9 OO NAUE WIN OS OO NA UE WW 0 OONAUESWN OO OONAUS Wr 


BEE EAN WWIWIWIWIinon 


STRAN TPAS_DECIMAL,,GENSSHR_ as : Memory unit # 


— 
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| 
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SoOoooooooooooo 
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arsing for SYSB890T 
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SSTATE 
RAN 


: SHOW /UNIBUS 
679 


STATE 
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TPAS_SYMBOL,,GENSSHR_ seer ape’. ; Memory name 


' SHAREOPT , SHROPT 


3; Share options 
TPAS_EOS, TPAS_EXIT ; 


: SYSGEN specific show qualifiers 


DEV_OR DRIV 
DEVICES’ eevee ° SHO/DEVICES =devname] 
oft Se ba : SHO/DRIVER C=devname] 
TPAS EOS 41 , TPAS_EXIT ,BOOSSHODEV_ALL : SHOW ALL 
TPAS CT AMBDA F 
TPAS_STRING, TPAS_EXIT ,BOOSSHODEV : SHOW SPECIFIC DEVICE 


SHOWCON 
!SHOWCON_LOOP, TPA$_EXIT ,BOOSSHOCONF IG 


SHOWCON_L 

SHOUCORDPT. SHOWCON, LOOP 
TPA$_EOS, TPAS_EXIT 

TPAS LAMBDA, TPAS_FAIL 


+: taeammed 
* COMMAND Ayer PY a -EXIT,BOOSRESET_COMMAND ; Set command file spec 


‘OUTPUT, TPA 
i ADAPTER, TPASS EXIT. BOOSSET_TR 


C/ADAPTER=n] 


SHOW UNI BUS 
NIBU = oomeel 


/ 
TPAS_LAMBDA 


jADeP TEs .2OGSSET. TR... 
TPAS_LAMBDA 


TPAS_EOS,, TPAS_EXIT ,BOOSSHOW_UNIBUS 


ADAPTER 
"ADAPTER’, ,BOOSRESET_ ADAP 


' SEPARATOR 


‘NUMBER, TPAS_EXIT 
TPAS _LAMBDA, RDAP_STR 


Set adapter number 


ADAP_STR2 
TPAS~LAMBDA, ADAP_STR,BOOSRESET_ADAP 


; 
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BOOTS. SRCJSYSBOOCMD.MAR; 1 ) 
SSTATE ADAP_STR 
STRAN TPAS_ALPHA,ADAP_STR,BOOSADAP_LETTER ; One letter at a time 
STRAN TPAS-DECIMAL, TPAS_EXIT,BOOSADAPTER_NAME : Take number as end 
Recognize the TERMINAL command 


SSTATE eee ce 
STRAN TERMINAL" 


bd lhe 
"ECHO’, TPAS_EXIT,SYSGSLOAD_TT_STR ; /ECHO only qualifier 
Recognize WRITE Command 


SSTATE WRTICMD : 
"WRITE’ : Command verb 


STRAN 'WRTCUR, TPAS EXIT 
STRAN ‘WRTACT.TPAS-EXIT 
STRAN iFILESPEC, TPKE _EXIT,BOOSWRTFILE ; 


SSTATE WRTCUR ; WRITE CURRENT 
STRAN ‘CURRENT’ 


SSTATE 

STRAN  TPAS_EOS, TPAS_EXIT ,BOOSWRTCUR 

SSTATE WRTACT ; WRITE ACTIVE 
STRAN ACTIVE" 

$STATE 


STRAN  TPAS_EOS, TPAS_EXIT,BOOSWRTACT 


3 RECOGNIZE CONNECT OPTIONS 


SSTATE CONECTOPT : 
7 ; Switch introducer 


TRAN 
SSTATE 
TRAN ADAPTER, TPAS_ EXIT, BOOSCONADP ; Adapter number | 
STRAN ‘NOADAPTER', TPAS EXIT, BOOSCONNLADP ; Use null adap 
$TRAN 1 CONEREG Tpks EXTT BOOSTON NCREG : Control “register (UBA) 
STRAN ‘CONCVECTOR, TPAS_EXIT ,BOOSCONCVEC ; Vector 
STRAN 'CONCNUMVEC, TPAS EXIT * BOOSCONCNUM 3; Number by vectors 
STRAN 'CONAUNIT, TPAS_ERIT,BOOSCONAUNIT : Adapter unit 
STRAN ‘'CONUNITS.TPAS~EXIT.BOOSCONUNITS ; Maximum units 
STRAN 'CONSYSID_LO,TPA$_EXIT,BOOSCONSYSID_LOW ; System ID (low) 
STRAN ‘iCONSYSID"HI .TPAS EXIT .BOOSCONSYSID~ HIGH osysten ID (high) 
STRAN {CONVECOFF.T p AS -EXIT BOOSCONVECOFE SET cok Gn wacterteenhs teu 
STRAN 'CONCSROF “EXIT ,BOOSCONCSROF FSET e Breet to CSR(combo device 
$TRAN SOT VERMAMES. ; 
SSTATE ; 
STRAN 'SEPARATOR : 
SSTATE : : 
STRAN 'FILESPEC, TPAS_EXIT,BOOSCONDRVNAM ; Driver name 
SSTATE CONCREG :; Control register address 
STRAN '"CONTROLREGISTER',VALUE : 


ran 


po 
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_voe=000 PARSE TABLES ° pat et 99: 6:31 Yeoors spe SYSBOOCMD.MAR; 1 ae (1) 

009 P38 STRAN ‘CSR',VALUE 3 Synonym 

00 760 SSTATE CONCVECTOR : Control t dd 

000 76) STRAN. "VECTOR" , VALUE Pe igh gt 

$60 £86 SSTATE CONCNUMVEC 3; Number of vectors 

4 Ne: STRAN "NUMVEC’ , VALUE : 

000 76 SSTATE CONUNITS 3 Maxi it 

0000 76 STRAN  "MAXUNITS® , VALUE Deering 

0000 6 SSTATE CONSYSID LO Syst id 

3 System 
770 STRAN SYSIDLOQ' , VALUE 3 

0000 771 

0000 ore SSTATE CONSYSID_HI 3; System id 

B208 i STRAN ‘SYSIDHIGH’,VALUE 3 

0000 775 SSTATE CONVECOFF ; Offset to vector from start of combo vecto 
464 £76 STRAN *VECTOR_OFFSET* , VALUE : 

0000 778 SSTATE CONCSROFF ; Offset to CSR from start of combo CSR 
464 Ags STRAN *CSR_OFFSET* , VALUE é 

0000 86781 SSTATE CONAUNIT 3; Adapter unit number 

0000 3 STRAN ‘ADPUNIT',VALUE 3 

0000 78 STRAN ':', TPAS_EXIT : 

0000 784; 
0000 785 ; Recognize Share command options 
0000 786; 
0000 787 SSTATE SHAREOPT 3 
0000 788 STRAN ‘/'* : Switch introducer 
0000 789 SSTATE . 
0000 790 TRAN 'SHRGBLCNT, TPAS_EXIT, GENSSHR_GBLCNT 3; Global Section count 
0000 791 STRAN !SHRMBXCNT,TPAS_EXIT,GENSSHR_-MBXCNT ; Mailbox count 
0000 STRAN 'SHRCEFCNT, TPAS_EXIT,GENSSHR_CEFCNT ; Com Event Flags Clustr Cnt 
0000 79 STRAN !SHRGBLMAX,TPAS_EXIT,GENSSHR_GBLMAX ; Port max Global Sections 
0000 94 STRAN !SHRMBXMAX,TPAS_EXIT,GENSSHR_MBXMAX ; Port max mailboxes 
0000 795 STRAN '!SHRCEFMAX,TPAS EXIT,GENSSHR CEF : Port max Com Event Flags 
0000 796 STRAN !POOLCNT, TPAS ERIT,GENSSHR POOLC ; Count of pool blocks 
0000 797 STRAN ‘POOLSIZE,TPAS EXIT,GENSSHR POOLS ; Size of pool blocks 
9000 798 STRAN ‘PROCNT, TPAS_ERIT,GENSSHR_PROQCNT ; Count of PRQ blocks 
0000 800 STRAN !SHRSTART, TPAS_EXIT,GENSSHR_START ; Start of useable mem. 
9000 801 STRAN ‘INITIALIZE’, TPAS_EXIT,GENSSHR_INIT ; Initialize 
0000 8680 SSTATE SHRGBLCNT ; Global section count 

4 ope STRAN *GBLSECTIONS* , VALUE : 

000 B08 SSTATE SHRMBXCNT ; Mailbox count 

4 ry STRAN ‘MAILBOXES’, VALUE 3 

0000 809 SSTATE SHRCEFCNT ; Common event flag cluster count 

4 319 STRAN *CEFCLUSTERS* , VALUE 3 

4h \¢ SSTATE SHRGBLMAX 3; Port maximum Global Sections 

44 F STRAN "MAXGBLSECTIONS', VALUE ; 
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000 15 SSTATE SHRMBXMAX ; Port maximum Mailboxes 
B88 18 STRAN ‘MAXMAILBOXES',VALUE F 
000 18 SSTATE SHRCEFMAX ; Port maximum Common Ev Flag Clusters 
44 th STRAN "MAXCEFCLUSTERS’, VALUE ; 
0000 821 SSTATE es CNT ; Total pool blocks count 
0000 8 ¢ STRAN OLBCOUNT' , VALUE ; 
444 : Z STRAN + POOLBENY VALUE ; 
$090 825 SSTATE POOLSIZE ; Pool block size 
8508 4 § STRAN ‘POOLBSIZE',VALUE 3 
0000 828 SSTATE >: CNT ; Total PRQ blocks count 
0000 829 STRAN PRQCOUNT' , VALUE 3 
0000 830 STRAN *PRQCNT',VALUE ; 
0000 831 
0000 £36 SSTATE SHRSTART 3; Starting relative PFN 
0000 83 STRAN "START' , VALUE F 
0000 834 
0000 835 -ENDC : End SYSGEN specific command 
0000 836 SEND_STATE 
0000 837; 
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° 


24 ; Own Storage: 
4 ao 


0000 r -Psect NONPAGED_DATA, noexe,rd,wrt,quad 
0 8 44 BOOSGL_CMDOPT:: ; Command options 
00010000 ? rf -LONG BOOCMDSM_TERMINAL : Default is all off, except for terminal 
04 ¢3 SAVE_TODCBASE : ; Save area for system time and base 
0000000C Boe rt -—BLKQ 1 3 registers 
00C SAVE _TODR: 
00000010 a6 9 -BLKL 1 
0000 44 2 -PSECT SYSBOOCMD,LONG 
0000 54 PARMBLK: ; TPARSE parameter block 
00000024 0 55 -BLK TPASK_LENGTHO ; 
0024 2$ BOOSGL _DOT: : ; Last parameter address 
00000000 0024 5 - LON 0 3 
00 $ 58 BOOSGO_FILDESC:: ; File name descriptor 
00000000 00000000 00 59 -LON 0.0 3 
+ 0 60 BOOSGT_FILNAME:: i; File name buffer 
00000070 0030 61 -BLK 64 ; 
0070 ¢ BOOSGT_COMBUF : : ; Command Line Buffer 
00000138 0070 6 -BLK 200 : 
000000C¢8 bi36 64 BOOSC COMBUF SZ7==.-BO0SGT_COMBUF 3; Size of command buffer 
01 865 BOOSGT_COMSTR:: ; Command string 
00000538 gee £88 -BLKB 1024 : 
00000400 0538 67 BOOSC_COMSTRLEN==.-BOOSGT_COMSTR ; Length of command string buffer 
Bo 38 868 BOOSGT_SYSNAME: : z System name string 
3A 4D 45 54 53 59 53 24 53 59 53 99" 0538 869 eASCIC \SYSSSYSTEM:SYS.EXE\ ; Name of sytem image 
45 58 45 2€ 53 59 33 bese 
0548 870 BOOSGT_SYSPARNAME: : 
3A 4D 45 54 53 59 53 24 53 59 53 00° 0548 871 -ASCIC \SYSSSYSTEM:VAXVMSSYS.PAR\; Name of the system .PAR file 
41 50 2E 53 59 53 53 4D 56 58 41 56 0557 
3 0563 
"8 0866 87 
44 $9" +e $78 BOOST _DYNAMIC: eascic /D/ 
88. 0366 874 BOOST_NODYNAMIC: eascic // 
56 75 
20 20 20 20 20 20 20 20 $8 $8 $8 90" 567 He CUR_BLANKS: eASCIC / / 
20 20 20 20 20 2 2f3 
20 20 20 20 90" 379 877 BLANKS: eASCIC / / 
57E 7 
0 43 41 35 31 21 9000588 "C106 0000" O37 He CTRLSTR: -ASCID @!15AC '4(10SL) !11AC !ACa 
1 $8 34 21 ¢9 ¢9 $ $3 $3 20 § § 28e 
1 20 43 41 31 31 21 20 4c 0 059 
81 Be ao 
43 41 35 31 31 BO ORR SAE ' S105 0000" 5A6 381 HEXSTR: -ASCID @!15AC '4(10KL) !11AC !ACca 
28 34 21 20 20 20 20 20 20 20 5B4 
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Functional Description: 
Calling Sequence: 
owe” 

Input Parameters: 
NONE 
Implicit Inputs: 
. NONE " 
Output Parameters: 
NONE 
Implicit Outputs: 
Pe CNONE. 


Side Effects: 
NONE 
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+H F -LIST MEB 3; Show macro expansions 
941 
OFFC Be BOOSGETPARAM:: .WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> : Save all registers 
bee IF NDF ,CMDSW 3; SYSBOOCMD only 
34 : Make descriptors PIC (only needed in SYSBOOCMD) 
948 * 
FD63 CF FDOA CF 9E 949 MOVAB CTRLSTR+8,CTRLSTR+4 ; Set address in descriptor 
FD84 CF FD8B CF 9E 950 MOVAB HEXSTR+8,HEXSTR+4 ; Set address in descriptor 
FDAS CF FDAC CF 9E 951 MOVAB ASCSTR+8,ASCSTR+4 : Set address in descriptor 
FODE CF FDES CF 9E 926 MOVAB Sa eee etter tines 3; Set address in descriptor 
FDEA CF FDFI CF 9E 95 MOVAB SCTRLSTR*+8,SCTRLSTR+4 ; Set address in descriptor 
FECC CF 0 o9E 954 MOVAB RIOSAB_BUFFER,- 
FECS CF 332 RIOSAB_OUTBUF +4 : Set address in descriptor 
929 -ENDC 
958 
959 READCMD: : 
57 F7BA CF ODE 960 MOVAL PARMBLK,R7 : Get address of parameter block 
08 A? 4 961 CLRL_ = TPASL_STRINGCNT(R7) ; initialize string Length 
OC A? FBEA CF 9E oh 306 READLINE VAB BOOSGT_COMSTR, TPASL_STRINGPTR(R7) 3; And address 
52 FBIC CF 9E 0850 964 MOVAB BOOSGT_COMBUF ,R2 : Set address of buffer 
DD 5 965 PUSHL R ; Set buffer address into argument List 
7E C8 8F 9A 5 96 MOVZBL #BOOSC_COMBUFSZ,-(SP) ; and maximum size for read 
OO0000000'EF 9F 5B 96 PUSHAB BOO$GT PROMPT 3; Address of prompt string 
00000000‘ EF 05 Fe 61 968 CALLS @# of BOOSREADPROMPT : Prompt for and accept command 
01 Fe re ? ; BLBS RO,5$ ; Exit if end of file. 
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6C 71 
ot ye 3; Upcase input 
0 35 go 6C 974 5$: OVL R2,RO 3; Set address of strin 
a. 2 A of 975 MOVZBL (RO)+,R1 : Get address and coun 
61 BF 60 91 976 7$: CMPB (RO) ,#*A/a/ ; Lower case possible ? 
09 =F 7 97 BLSSU 8$ 3; No, Branch 
7A 8F 69 91 7 978 CMPB (RO) ,#*A/2/ 3; Lower case possible ? 
1A 087C 979 BGTR 8$ 3; No, Branch 
60 0 BA 8 7E 44 BICB #*x20, (RO) 3; Clear bit, make character upper case 
0 06 0881 981 8$: INCL 0 3; Increment pointer 
ec 51 —F 5 OB 386 SOBGTR R1,7$ 3; Loop 
53 O08 A? OC AZ C1 0886 984 ADDL3 TPASL_STRINGPTR(R7) ,TPASL_STRINGCNT(R7),R3 ; Get current pointer 
50 82 9A O88C 985 MOVZBL (R2)+,RO 3; Get length of input Line 
BF 13 O88F 986 BEQL READLINE : Ignore null input 
51 2 00 +94. 987 MOVL R1 ; Move to LOCC address register 
28 B81 9A 0894 988 30$:  MOVZBL (R1)+,R2 : Get a character 
5 2D 91 0897 989 CMPB #*A/-/,R2 : Is this a possible continuation? 
1D 13 O89A 990 BEQL $ 3; Branch if yes 
52 21 91 O89C 991 CMPB #*A/!'/,R2 : Is this the start of a comment? 
0B 13 O89F 99 BEQL 40$ 3; Branch if yes 
08 A? D6 OBA1 99 INCL TPASL_STRINGCNT(R7) ; Bump characters in command string 
83 52 90 O8A4 994 MOVB R2,(R3)+ 3; Copy character to command string 
EA 50 F5 OB8A7 995 35S: SOBGTR RO,30$ 3; Continue for all characters in put 
48 11 OB8AA 44 BRB PARSE : Done, parse command 
50 44 O8AC 997 40S: DECL RO : One less character 
O01 Al 50 21 A peas 998 LOCC #*A/'/,R0,10(R1) : Scan remaining string for ! 
42 13 088 999 BEQL PARSE 3: None end of Line first 
51 06 0885 1000 INCL R1 3; Advance to next character 
33 11 Q887 1001 BRB 35$ : Continue with Line scan 
54 DO 0889 196 50$: MOVL R3,R4 : Save string insertion pointer 
55 08 A? 00 beet 100 MOVL TPASL_STRINGCNT(R7),R5 ; and current Length 
83 52 90 8 C9 1004 MOVB R2,(R3)+ 3; Copy to buffer anyway 
08 A? =D6 «O8C3 «1005 INCL  TPASL_STRINGCNT(R7) : Advance counter 
15 11 08C6 1006 BRB 65$ 3; And check for end of string 
5 81 9A O08C8 1007 60$: MOVZBL (R1)+,R2 : Get another character 
83 52 90 O08CB 1008 MOVB = R2, (R38) + : Copy to buffer 
08 A? D6 O8BCE 1009 INCL TPASL_STRINGCNT(R7) 3; Bump string count 
52 20 91 O08D1 1010 CMPB #*A/ 7,R2 3; Blank? , 
07 13 0804 1011 BEQL 3; Yes, still might be a continuation 
52 21 91 08D6 10lg CMPB #*A/'/,R2 : Is this a comment? 
OF 13 O8D9 101 BEQL 80$ ; Branch if yes 
ga 11 babe Ite BRB 35$ 3; Not a continuation | 
—8 50 =FS DD 1015 65$: SOBGTR RO,60$ ; Continue to end of line 2 
53 54 D0 O8EO 1016 70S: MOVL ‘ 3; Drop everything after continuation 
08 A? =—55 + O8ES 1017 MOVL RS, TPASL_STRINGCNT(R7) ; By restoring count 
FF66 1 O8E7 1018 BRwW READLINE 3; Reag another Line 
50 g7 BEA 1619 80$ DECL R 3; One less character 
01 Al 50 21 A OB8EC 1020 LOCC #*A/'/,RO,1(R1) : scan for end of comment 
gp 13 bbe 1021 BEQL 70$ ; None ag 
1 06 O8F 19 § INCL R1 ; Skip trailing ! ; 
Fe 11 FS 1 BRB 65$ ; and continue scan for end of Line 
67 8 00 F 1024 PARSE: MOVL #TPASK_COUNTO, TPASL_COUNT(R7) : Init count field. 
04 A7 O02 C FA 8 5 BISL #TPASM ABBREV,TPASL OPTIONS(R7) ; Permit abbreviations 
CA FE 1 § BICL2 #*C<BOOCMDS: CHECK! - 
FF 10 BOOCMDSM_SETOUTPUT !- 


ete 
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os § BOOCMDSM_TERMINAL>,=- 
00000000 ' EF chan | 8F FF 1 BOOSGL_CADOPT 3; Clear all options but specified 
18 A? (9% 99 1030 LRB TPASB_CHAR(R7) : Last character parsed 
QOOOOOOO'EF 9F 09 1031 PUSHAB key ret ; Pass address of key table 
OOOOO'EF OF O912 1 ¢ PUSHAB STATE 3 and state table 
7 od 0918 1 USHL R7 3; Set address of parameter block 
00000000 * GF on. 2 91A 1034 CALLS £5 -$.) SesTPARSE ; Parse input 
19 50 € 921 1035 BLBS pi 0$ ; Branch if no syntax error 
1350 iF € 3 4 10 6 BBS #31,R0,15$ : Branch if error already given 
> 1p 3 IF NDF ,CMDSW 3; SYSBOOCMD 
9 1040 MSG eset kreta error> ; SYSBOOT error message 
F6D5' 30 09 BSBW BOOSF ACMSG é 
72 65 20 78 61 74 6E 79 53 2D 45 43 0928 eASCIZ \-E-Syntax error\ : 
ohhh a ea 
Baas 1306 of FF 3 SYSGENCMD 
093B 1044 CMPL #) J08_SYMTANERR AO 3; Tparse Syntax error ? 
0938 1045 BEQLU 10% ; Branch if yes 
0938 1046 STL RO 3; Zero ? 
0938 1047 EQL 10$ 3; Branch if yes 
0938 1048 PUSHL RO 3; Push REAL error code 
0938 1049 CALLS #1,G*LIBSSIGNAL ; Signal Error 
0938 1050 BRW 30$ : Continue 
Ooae 1936 ; Heuristically determine where syntax error occured 
0938 1054 108: MOVZBL TPASB_CHAR(R7) ,R4 3; Was there a character parsed ? 
0938 1055 BNEQ 1 ; Branch if yes ; 
0938 1056 MOVQ TPASL_STRINGCNT(R7),-(SP) ; Push entire read-in string 
0938 1057 BRB 14$ : Branch 
0938 1059 12$: SUBL TPASL_TOKENCNT(R7) , TPASL_STRINGCNT(R7),R2 ; Length 
0938 1060 ADDL TPASL_TOKENCNT(R7), TPASL_STRINGPTR(R7),R35 ; Address 
0938 1061 CMPB #*Aa'/* RG ; Was it a qualitier error ? 
0938 1906 BEQL 13$ 3 No 
0938 106 MOVQ R2,-(SP) 
0938 1064 BRB 14$ 
Be 1998 13$: LOCC TPASB_CHAR(R7),R2,(R3) =: Find it then 
938 106 MOva RO,-(SP) :; Push Length and address 
$338 1 o8 14$ PUSHL #2 3; Number of FAO params 
9 106 PUSHL #SYSG$_SYNTAX ; Error message 
oe 1070 CALLS #4,G*LTBSSIGNAL ; Signal the error 
938 1071 
35 1ayg 00 
5C 11 0938 1074 15$: BRB 308 ; and get another command 
56 O00000000°EF DO 0930 1075 20$: MOVL BOOSGL_CMDOPT ,R6 3; Get command option flags 
54 56 08 £0 0944 1 id: BBS WBOOCMOSV_CONT.RO.EXIT : Exit if continue flag 
40 56 09 €1 Bee ' 4 BBC #BOOCMDSV_DEFAULT,R6,30$ ; Read another command if Help 
94C 1 8 : The Default values for system parameters are selected and must be copied to 
Bee 1380 3; the current system parameter area. 
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QOO00004"EF  QOO00000'EF 7D 094C 1 mova EXESGQ_TODCBASE,SAVE_TODCBASE ; Save time base register 
OOOOOOOC*EF O0000000"EF 00 2 ! $ MOVL EXESGL-TODR, SAVE. TODR ; Save time register 
O0CO'SF 28 $63 1085 MOVC3 #EXESC_SYSPARSZ,- 
aie ad 966 1 § BOOSA_SYSPARAM, = 
0000000 ' EF 2 6 ! i EXESA_SYSPARAM : Copy defaults 
00000000‘ EF 00000004 ‘EF 7D 097 19 .) MOvVa SAVE_TODCBASE ,EXE$GQ_TODCBASE ; Restor 
QO000000"EF —O000000C"EF 00 0978 1090 MOVL  SAVETTODR,EXESGL.TODR r 
00000000'8F £2 0986 1 38 BBSS #EXESV_WRITESYSPARAMS,- ; Use default => write current needed 
00 00000000 ' GF 03 ; } 3 - G*EXESGL_DYNAMIC_FLAGS,1$; 
FE7C CF ODE «49992 «1095 ~~ MOVAL B00$GT_DEFAULT,- 
FE79 CF 0996 1096 BOOSGL ~PARINUSE : Set default in use 
FEA6 = 31 3444 H+ 344 30$: BRW READCMB 3; Read more commands 
50 01 pO 0O99C 1099 EXIT: MOVL #1,R0 ; Return success 
cael : 
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aA 1} ; : -SBTTL BOOSFILESPEC - Parse file spec 
9A0 1105: 
an 1 $ : CALLING SEQUENCE: 
Ms 1 3 : called as a TPARSE action routine 
Bb ie | nur 
90 111g : The tparse parameter block (AP) 
i 1114 > OUTPUT: 
O9A0 1116 : A possible file spec is found. 
0940 1118 : SIDE EFFECTS: 
09A0 1120 : The tparse parameter block is updated. 
09A0 1361 3 
Ba 194 & 
OOF C poay 1186 -Entry BOOSFILESPEC, “M<R2,R3,R4,R5,R6,R7> 
52 OC AC DO Q9A2 1126 MOVL TPASL yg eae AP 3; Get address of current parse 
14 AC 52 DO O9A6 1127 MOVL R2, TPASL Abe ; Set token pointer 
FESF CF 52 DO O9AA 1128 MOVL R2,B00$6 aad iEEA ADER : Set file spec pointer 
53 O08 AC DO O9AF 1129 MOVL TeASL STRINGCNT CAP) -R3 ; Remainder of parse string length 
i } o283 1}e BEQL 100$ : Error if zero 
62 53 20 3A 0985 1136 LOCC #*A/ /,R3,(R2) ; is there a blank? 
04 12 0989 113 BNEQ 50$ ; Branch if yes 
62 53 2F 3A a4 Vise LOCC #*Aa/a,R3,(R2) ; is there a slash? 
08 AC 50 DO O9BF 1136 50S: MOVL RO,TPASL_STRINGCNT(AP) ; Remaining Length 
Oc AC }3651) «=O 0 (09C3) «(1137 MOVL R1,TPASL_STRINGPTR(AP) ; Address of blank or slash 
51 52 C2 09C7? 1138 SUBL2 R ; Calculate length 
10 AC 51 DO O9CA 1139 OVL R1,TPASL_TOKENCNT(AP) : Set Length of file spec 
FESA CF 51 90 O9CE 1140 MOVB R1,B800$GB_FILELEN : Set length of file spec 
01 pO 0903 1141 60$: MOVL #SS$_NORMAL ,RO 3; Set success 
07. ~=611 3308 1126 BRB 110% 3; Exit 
50 00000000°8F DO 09D8 1144 100$: MOVL #LIB$_SYNTAXERR,RO 
04 O9DF 133? 110$: RET 
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50 poo0p>* "GF 
5C CF 

19 Ke 88 
00000000" eF 6C¢ 
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00000000 * 8F 

00 00000000‘ GF 
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FOFF CF 

50.01 


mmand parsing for SYSBOOT 


BOOSUSECUR - Use parameters from current _* Ef =1382 90:08:41 Yabors: sre SYSBOOCHD.MAR; 1 a 3) 


w 
wn 
. 


So 
csae . 


ts ts os 
— 


> — > > 2» 9 9 4 4 a _ 
AACS UIUIUTUTUIULS 


WN OOONOUSWN—OO° 


BOOSUSECUR = Use parameters — current image 


to current system values 
“M<R2,R3,R4,R5,RO,R7,RB, k9>:; 
G"BoosGT SYSPARNAME,RO - i Get address of s stem «PAR file name 


PAR t address of the TPARSE geryreter block | 
Gaiety get up for call to BOOSUSE 
tab) G*BOOSUSEF ILE i Call routine to process the .PAR file 

0, : Branch to failure code 


44, ESV_WRITESYSPARAMS,- ; Use current => no write current needed 
G*EXESGL DYNAMIC FLAGS, sé; 

BOO$SGT_CURRENT 

BOOSGL “PARINUSE ; Set parameters in use 

#1,R0 ~ ; Return success 
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BOOSSHOWV = Rout 
OA? 1163 -SBTTL BOOSSHOWV - Routine to show one parameter value 
Al7 1189 3 ; Input Parameters: 
pale 1188 3 $ R4 = Pointer to PRM block to be displayed. 
OA17 1170 ; Output Parameters: 
pale M10) ; Content of parameter block is displayed by calling RIOSOUTPUT_LINE 
soe 00 SHUG HES BoossHOwy: cacy Pee 
; Get address of value 
50 00000000' EF4O 9E OAIA 1175 MOVAB scosh SYSPARAMCRO],RO =; Add current base address 
50 0000000'8F C2 9%A22 1176 UBL #BOOSA_SYSPARAM, RO’ : and subtract Link-time value 
5 FB79 CF 7E OA29 117 MOVAQ HEX ; Assume hex display 
0B EO OAZE 1178 BS #BOOCMOSV DISHEX,- 
0A_00000000'EF 0A30 1179 BOOSGL CMBOPT,1$ ; z siete then display hex 
53 FB44 CF 7E OA36 1180 MOVAQ CTR Rr STR. R3 me not ascii data 
03 10 AS 10 £0 OA3B 1181 BBS aPRHSY ASCII, PRMSL_ FLAGSiRA) te Branch if ascii 
0085 31 OA40 1186 1$: BRW 15$ s 
OA43 118 
OAS3 1184 ; 
OAS3 1185 ; ASCII data 
OA43 1186 ; 
55 DD OA43 1187 2S: PUSHL R5 ; Save a register 
5E 10 C2 OA4S 1188 SUBL2 #16,SP ; Allocate a buffer on the stack 
52 14 AG «GA «(AGB SO1189 MOVZBL PRM$B_SIZE(R4),R2 : Get size Cin bits) 
52 52 FD 8F 78 OA4SC 1190 ASHL #-3,R2,R2 ; Convert size from bit to byte count 
51 52 DO OQAS1 1191 MOVL R2,R1 3; Make a copy of the size 
04 52 D1 OAS4 1136 CMPL 2,84 3; Size > 4? 
03 15 OAS7 119 BLEQ ie kh geg r* 
51 04 DO OAS9 1194 MOVL #4,R 3; Max o for default, max and min 
FB17 CF OS 51 £83 OASC 1195 3$: SUBB3 i al _. ; Calculate number of blank spaces needed 
16 BB OQOA62 1196 PUSHR amcrRi,R 2,R Sa ve some registers 
Oc AE 10 20 60 52 2C QA64& 1197 MOVCS R2. (ROS, Re yi é #16, <3%4>(SP) Move the parameter value into the buf 
16 BA OA6B 1198 POPR whcR »R2,R4> 3 Restore the registers 
5 5E DO OQA6D 1199 ; Save a pointer to the buffer 
FAF1 CF 11 £452 £83 OA70 1200 SUBB3 RD a7, he BLANKS : relenene number of pad blanks 
FAEC CF ODF OA76 1201 PUSHAL BOO$T NODYNAMIC Ass not dy namic 
05 10 AS 00 = €1 OA7ZA 1202 BBC OPRMSO. OYNAMIE. PRMSL FLAGS (RO), 108: Stench if not 
6E FAE1 CF DE OA7F 1203 MOVAL BOO$ST_BYNAMIC (SP) 3 A a to * dynamic string 
26 AS «OF «=(0AB4 «61204 10$:  PUSHAB PRMSTUNIT TRG : Stec address of unit name string 
OC AS = 9F OAB7 1205 PUSHAB PRMSL~ “MAX (RE) ; Stack maximum value 
51 DD QABA 1206 PUSHL R11 3; and size 
FAE9 CF F QA8C 1207 PUSHAB BLANKS : Blanks for padding 
08 AS OF O0AY 1308 PUSHAB PRES. MIN(RA) ; re value 
51 DD OA93 1209 PUSHL R11 : and si 
FAEO CF 9F OA9S 1210 PUSHAB BLANKS ; Blanks oe padding 
04 AS OF OAID 1211 PUSHAB PRM$i_DEFAULT(R4) ; Default value 
51 DD OA9C 1 \¢ PUSHL 3: and size 
FAD7 CF 9F OASE 121 PUSHAB 5 ee ; Blanks for paddin 
53 DD OAA2 1214 PUSHL R ; Address of current value 
52 DD OAA4 1$12 PUSH 2 3 and size 
FABD CF SF OQAA6 1216 PUSHAB CUR_BL : Blanks for padding 
16 AG OF QAAA 1217 PUSHAB PRMST_NAME(R4) 3; Stack address of paraneter name 
FCS2 CF 7F QOAAD 1s! PUSHAQ RIO$AB_OUTBUF ; Stack address of buffer descriptor 
FD56 CF F QAB1 1219 PUSHAL R1086u~ OUTLEN ; Set address of loc to receive size 
FB15 CF F rt 1350 PUSHAQ ASCSTR ; Control string for ascii 
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| 
| 12 FB OnB9 CALL #18,SYSS$FAO ; Format value for output 
1 C rtd ADDL #16,SP ; Remove the buffer from the stack 
55 8EDO pac POPL 3 
3D 6°11 =~OAC ; 
OAC 


Restore a register 


1 
1338 
: 5 BRB 55$ ; and join common code 
Once 199° ; 
oy : g i ; Decimal or hex display - R3 contains address of control string 
10 OACB 1580 158: BSBB.-GETDATA 3 Get data item according to size 
FA9B CF DF OACA 1231 PUSHAL BOO$T_NODYNAMIC ume not dynamic 
05 10 AS = 00 =«6©€1 «=2(OACE «O(1 3 BBC #PRMSU_DYNAMIC, PRISL_ FLAGS (RA. 20$ ; Branch if not 
6E FA8D CF DE pads ! 37 MOVAL 600$1 DYNAMIC, ( (SP) 3 Change to dynamic string 
26 AS =F OADB8 $1235 208: PUSHAB PRMS$T_UNIT(R4) ; Stack address of unit name string 
OC A4 DD OADB 1236 PUSHL PRMSL_MAX(R4) : Stack maximum value 
08 AS DD OADE 1237 PUSHL PRM$L BL ping Se : and minimum value 
04 AS DD OAE1 1238 PUSHL PRMSL-DEFAULT(R4) Default value 
10 AS =: 1000 8F = B3.sC«OAES Ss 1239 BITW #PRMSA_NEG, ERNSL ” FLAGS (RE) 3 check for negated value 
03 15 OAEA 1240 BEQL 30$ : Branch if not 
6—E 6E€ CE OQOAEC 1241 MNEGL (SP),(SP) 3 Make absolute value 
51 OD OAEF 1se6 30$: PUSHL R11 ; Current value 
16 AG OF OAFI 124 PUSHAB BRMST NAME (R4) 3; Stack address of pecenetes name 
FCOB CF 7F OAF& 1244 PUSHAQ RIO$AB_OUTBUF ; Stack address of buffer descriptor 
FDOF CF ODF OAF8 1245 PUSHAL RIO$GW_OUTLEN ; Set address of loc to receive size 
53 DD we 1666 PUSHL R3 ; Push address of control string 
QOOOOOOO'EF OA FB OAFE 1248 CALLS #10,SYS$FAO 3; Format value for output 
03 50 €9 0805 1249 55$:  BLBC RO,60$ 
0405 30 0808 1251 BSBW RIOSOUTPUT_LINE ; Output the Line 
05 OBOB 1252 60$: RSB 3 and return 
OB0C 1253 
OBOC 1254 GETDATA: : 
51 15 AG 9A OB0C 1255 MOVZBL PRMS$B_POS(R4),R1 ; GET SIZE OF DATUM 
51 14 AG 51 EF 0B10 1256 EXTZV R1,PRA$B_SIZE(R4),(R RO) RI s Gg DATUM 
10 AG 1000 8F B3 0B16 1257 BITW #PRMSM _NEG, PRMSL_FLAGS(R4) : CHECK FOR NEGATED VALUE 
OD 13 OBIC 1258 BEQL 10$ : NO 
51 15 A4 9A pais 1259 MOVZBL PRM$B_POS(R4),R1 s GET ap od t AGAIN 
51 60 14 AG 51 EE 0B2 1260 EXTV R1 -PRASB_ SIZE(R4), (RO), Ri CONVERT TO SIGNED NUMBER 
51 51 CE 0B28 1261 MNEGL R1.R1 ; ABSOLUTE VALUE 
05 0828 1606 10$: RSB 3 
OB2C 126 
OB2C 1264 ; 
OB2C 1265 : Show names of parameters 
OB2C 1266 ; 
QOB2C 1267 BOOSSHONAMES: 
OOF C 0B C 1268 "WORD “M<R2,R3,R4,R5,RO,R7>_— 
56 OO000000'EF 9E 7: 3 ; $° MOVAB BOOSA_ PRMBLK ,R6 3; Set base of parameter blocks 
57 05 00 0835 1271 108: MOVL #5,R7 3; Init argument count 
66 D3 OB 8 1 re TSTL — CRO) > At end of list? 
5 1 A 127 BEQL 90$ 3; Yes, finished 
51 16 A6 ODE OB3C 1274 MOVAL PRMST_NAME(R6),R1 3 Set parameter name address 
56 632 AG «OSE «=—(0B40 «(1275 MOVAB PRMSC“LENGTH(R6) ,R6 ; Next parameter, block 
66 D5 poe? 1276 TSTL (R6) ~ 3; At end of List? 
26 «613 «0846 1277 BEQL 70$ 3 yee 
52 16 A6 DE 0B48 1278 MOVAL PRMS$T_NAME(R6),R2 ; Set second address 


| 
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57 6 B4C 127 INCL R7 ; Advance argument count 
56 32 A6 B4E 1 & MOVAB PRMSC_LENGTH(R6) ,R6 ; Next argument 
$6 D 52 1281 TSTL (R6) 3; At end of list ? 
1 13 0854 1 B BEQL 70$ 3 
53 16 AG DE 0856 128 MOVAL  PRMST_NAME(R6) ,R3 : et third address 
5 D6 OBSA 1284 INCL 3; Another aneter 
56 32 A6 SE OBSC 1 $2 MOVAB PRMSC_LENGTH(R6) ,R6 3; Next geree ter block 
66 OD pBe8 1286 TSTL (R6) 3; At end of 
OA 1 B62 1287 BEQL 70$ ; Yes 
57 06 pee? 1288 INCL R7 3 another argument 
54 16 A6 YE 0B66 1289 MOVAB PRMST_NAME(R6) ,R4 : Set fourth address 
56 32 A6_ ODE pees 1290 MOVAL eoree “LENGTH(R6) ,R6 ; Next parameter block 
1E a +13 1291 70$: PUSHR &#*M<R RT. R2,R3,R4> 3; Stack args 
7E 57 404 C3 0870 1 5 SUBL3 #4,R7,-(S p) 3; Set number of ogr ines on Line 
FB8B CF 4«7F «(0B74 «(129 PUSHAQ RIOSAs. OUTBUF ; Stack address of buffer descriptor 
FC8F CF DF OB78 1294 PUSHAL RIO$GW-OUTLEN ; Set address of loc to receive size 
FASE CF 7F OB7C 1295 PUSHAQ NCTRLSTR ; Stack address of control string descr 
00000000" EF 57 FB O0B80 1296 CALLS RY LSYSSFAO 3; Format value for output 
08 50 €9 OB87 1297 LBC RO,100$ 
OBB8A 1298 - 
0383 30 OB8A 9 44 BSBW RIOSOUTPUT_LINE : Output Line 
A6 11 OB8D 1300 BRB 10$ ; Loop 
OB8F 1301 
50 01 DO OB8F 1308 90$: MOVL #1,R0 3; Success status 
04 0B92 1303 100$: RET 3; Return 
0B93 1304 
0693 1305 ; ' 
0B93 1306 ; Show name of Startup command file 
0B93 1307 ; 
0B93 1308 BOOSSHOSTART: 
OOFC 99 1392 » WORD “M<R2,R3,R4,R5,R6,R7> 
50 O0000000'EF 9E 0B95 1311 MOVAB L“EXESGT_STARTUP,RO : Set address of string 
OB9C 1316 SFAO_S - 
oB9Cc 131 CTRSTR = SCTRLSTR,- ; Stack address of control string descr 
OB9C 1314 OUTLEN = RIOSGW_ OUTLEN, - 3; Set address of loc to receive size 
OB9C 1315 OUTBUF = RIOSAB_OUTBUF,- ; Stack address of buffer descriptor 
OB9C 1316 1 = RO ; Set address of startup string 
50 DD OB9C PUSHL RO 
FB61 CF 7F OBIE PUSHAQ RIOSAB_OUTBUF 
FC65 CF 3F OBA2 PUSHAW RIOSGW OUTLEN 
FA77 CF 7F OBA6 sey SCTRLSTR 
00000000'GF 04 FB OBAA CALLS PS$1>-G°SYSSFAO 
03 50 =€9 OBB1 1312 BLBC RO,10$ 
0BB4 1318 
0359 30 OBB4 1319 BSBW RIOSOUTPUT_LINE 
04 OBB7 1320 10$: RET : 
0BB8 1321 
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| sey ! ro «SBTTL BOOSNOCHECK = Disable value checking 
des ! z 3 Disable Value Checking and Limiting 
0000 0B8B8 1327 BOOSNOCHECK: wOoRD 0 
00 00000000" EF 00 €3 OBBA 1328 BBCS #BOOCMDSY _NOCHECK ,BOOSGL_ CMDOPT,10$ ; Set value check inhibit 
50. 3=—(01 + pate +4 10$: =e #1,R0 7 Return success 


atm 


———---———— 


rsing for SYSBOOT 
- Disable value checking 4-SEP=1984 23:06:31 (BOOTS.SRCISYSBOOCMD.MAR; 1 


SYSBOOCMD = Command 
v04-000 BOOSNOCHEC 
gate 
sts 
C6 
pate 
BC6 
0000 OBC6 
00 O0000000"EF 00 €5 OBC8 
50 01 00 144 
04 OBD 
OBD4 


* 


— 2 4 4 4 — 4 4 3 5 2 


WNWWAWNANINWWw 
See ee teh ah oh eh ahah ab aben 


NO OONOUS wr 


ee eee 


16-SEP-1984 00:05:41 VAX/VMS Macro v04-00 
~SBTTL BOOSNOTHECK = Disable value checking 
: ENABLE VALUE CHECKING AND LIMITING 


BOOSCHECK: 

-WORD 0 Null entry mask 

BBCC ZO0OC ROSY -NOCHECK, BOOSGL’ CMDOPT® 10$ ; Clear enaek flag 
0$: wee #1,R0 $ Return with success 


| SYSBOOCMD = Command parsing for SYSBOOT 16-SEP-1984 00:05:41 VAX/VMS Macro Vv04-00 Page 30 
Rite BOOSSEARCH - Lookup parameter name 4-SEP-1984 $0°08:41 teoors. sre SYSBOOCMD.MAR; 1 . (2) 
| 
+ : rf: -SBTTL BOOSSEARCH = Lookup parameter name 
| ; 
D4 (1 +8 ; Input Parameters: 
BD4 1347 ; TPASL_TOKENCNT(AP) = Count of characters in token 
+ ! rh 3 TPASL_TOKENPTR(AP) = Address of token 
D4 1350 ; Output Parameters: 
D4 1351 ; TPASL_PARAM(AP) = Address of PRM block for specified parameter 
D4 1 26 3 name if found. 
D4 13535; RO - 0 => Name not found 
9 ! 2¢ 3 1 => Name found 
003C deg : 2§ BOOSSEARCH: : eWORD “M<R2,R3,R4,R5> ; 
OOOO00000"EF OA €1 OBD6 1358 BBC #BOOCMDSV_USEFILE, - P 
06 pend ! 2B BOOSGL_CMBOPT,5$ : Skip count check if not USE <file> 
10 AC 93 91 pB0g 1361 CMPB #3, TPASL_TOKENCNT(AP) ; Check for count of characters 
2 18 OBE? 6¢ BGEQ ~§=s-« 550 : Exit if if not > 3 
54  00000000'EF 4 OBES 1308 5$: MOVAB BOOSA_PRMBLK,R4 ; Set base of parameter blocks 
8 DS OBEB 1365 10$: TSTL (R4) ; Check for end of List 
g 12 OBED 1396 BNEQ 30$ 3; Not yet 
2 11 QBEF 136 BRB 50$ : Symbol not found error | 
55 16 A4 QE OBF1 1368 30S: MOVAB PRMST_NAME(R4),R5S ; Get pointer to name string 
85 10 AC 91 OBFS 1369 CMPB TPASL_TOKENCNT (AP) ,(R5)+; Check for too many characters 
08 14 OBF9 1370 BGTR 35$ :; Yes, cant be a match 
10 AC 29 OBFB 1371 CMPC3 TPASL_TOKENCNT(AP),- : 
65 14 BC OBFE 1372 @TPASC_TOKENPTR(AP) ,(R5); Is this a match? 
06 13 OCO1 137 BEQL 4 : Yes, return PRM pointer ; 
54 32 A4 YE OCO3 1374 358: MOVAB PRMSC_LENGTH(R4) ,R4 ; Advance to nex parameter descriptor 
—E2 11 OCO7? 1375 BRB 10$ : and try another 
20 AC 54 D0 OCO9 1376 40S: MOVL R4, TPASL_PARAM(AP) ; Return address of parameter block 
F412 CF 54 00 OCOD 1377 MOVL R4,BOO$GC_DOT : And save as dot 
50 01 00 acts 1378 MOVL #1,R0 : Indicate success 
04 0C15 1379 RET 3 and return : 
18 00000000'EF OA €0 pete 1380 50$: BBS #BOOCMDSV_USEF ILE ,BOOSGL_CMDOPT,60$; No message on ‘USE filename’ 
OCIE 1386 IF NDF ,CMDSW :; SYSBOOCMD 
OCIE 138 MSG <-E-No such parameter> 
F3DF° OCTE BSBW BOOSF ACMSG 
70 20 68 63 75 73 20 6F 4E 2D 45 0C21 eASCIZ \-E-No such parameter\ 3 
00 72 65 74 65 6D 61 72 0C2D 
ac 6 1386 oIFF : SYSGENCMD 
C36 1385 PUSHL #SYSG$_NOPARAM ; Set message 
0C36 1386 CALLS #1,G*LTBSSIGNAL ; Signal 
O¢36 1385 tN" 
50 02 0C36 1389 60$: MNEGL #2,R0 :; Give unique error code 
tH 1390 RET 
C3A 1391 
C3A 1 38 3 é 
: ; ! 87 3; BOOSDOT - Use Last parameter name if any 
0 3A 1395 BOOSDOT:.wORD 0 ; Null entry mask 
20 AC «FF 3E4 CF o¢ C 1396 MOV BOOSGL_DOT, TPASL_PARAM(AP) ; Get dot address 
02 C42 1397 10$ ; Have pointer 


ee ee ee ee ee re ee oe oe oe oe owe oe owe owe oe owe oe oe oe oes ee =m 


SYSB 
Vv 


— 


OOSSEARCH = Lookup ee a name 
50 C 1 
% aes 1338 10$: 


ESE 198s 29:00:81 


; Give error status 


RO 


AX/VMS mag ro V04-00 
BOOTS. SRC SYSBOOCMD.MAR; 1 


Tonseen 13 4 


AX/VMS Macro V04-00 
46-SEP-1984 


SYSBOOCMD - Command parsing for SYSBOOT 
v04 teoots sre SYSBOOCMD .MAR; 1 


BOOSSETVALUE = Store parameter value 


33:06:31 


rm 


cet 1% 1 -SBTTL BOOSSETVALUE = Store parameter value 
C47 «(14 : ; Input Parameters: 
C47 1404 : TPASL_PAR AM = Address of parameter descriptor 
Bee! eR? 3 3 TPASL_NUMBER= Value to be checked and stored 
0C47 1209 : Output Parameters: 
0C47 1408 : If value is within bounds set by parameter descriptor, the 
0C47 1409 : value is moved to the address specified by the perenever descriptor 
0C47 1410 : RO = Completion status 0 => value out of allowable venge 
0C47 1411 ; 1 => legal value successfully stored 
pees \el¢ 
C47 141 Boose TvALUE : : : 
0010 S544 1313 «WORD “M<R4> : Entry mask 
Q0000000'8F £2 OC49 1416 BBSS #EXESV WRITESYSPARAMS,- ; Set a value => write current needed 
00 00000000 ' GF OC4E 1417 = G*EXESGL_DYNAMIC "FLAGS, 1$; 
54 20 aC 00 OC55 1419 MGVL TPASL_PARAM(AP) ,R4 ; Get pointer to parameter descriptor 
10 €1 0C59 1469 BBC #PRMST_ASCII,- : Ascii parameter? 
03 10 AG O0C5B 1421 PRMSL “FLAGS (R4), 10$ : 1f BC no continue 
009D 31 OCSE 1056 BRW 65$ : en to error 
01 DD OC61 1423 10S: PUSHL #1 (308: 3h value 
25 00000000'EF 00 €0 0C63 13Se BBS #BOOCMDSV Ayers a BOOSGL_ cHoOPT 30$ ; Should values be checked 
50 08 AS 00 OC6B 1425 MOVL PRMSL_MINTR4 3; Get minimum allowable value 
OD 19 OC6F 1426 BLSS 2 3; No Sadalonen 
50 1C AC D1 OC71 1427 CMPL Gite. sanmenunie se 3 Check input value 
07 1E OC75 1428 BGEQU : Branch if above minimum 
1c Ac }650)Sss«#DOs«éOC77 be 9 OVL RO, TPASL_NUMBER (AP) : Use minimum value 
6—E O02 CE OC7B 1430 MNEGL #2, 3; Note bad value 
50 OC AS DO OC7E 1431 208: MOVL PRMSL_MAX(R4) ,RO ; Get maximum allowable value 
0c 19 OCB2 1636 BLSS : Branch if no maximum 
1C AC 50 Di OC84 143 CMPL RO, TPASL_NUMBER (AP) 3; Check for maximum 
06 1E OC8B 1434 BGEQU : Continue if value legal 
1¢ AC 50 DO OCBA 1435 MOVL RO, TPASL_NUMBER (AP) 3; Limit to max value 
6E D4 OCBE 1436 CLRL 3s (SP) : Indicate error 
50 20 AC 00 OC90 1437 30S: MOVL TPASL _PARAM(AP) ,RO 3; Get address at which to store 
50 60 00 OC94 1438 MOVL PRMSL_ADD (RO) : 
50 QO000000'°EF4O 9E OC97 1439 MOVAB BOO$SA~SYSPARAMLROJ,RO 3; Add present base of parameters 
50 00000000'8F ce OC9F 1440 SUBL #BOO$SA_SYSPARAM,RO : And subtract Link-time base 
10 AG 1000 8F 8B ae 1441 BITW #PRMSM_ NEG, PRMSL_ FLAGS(R4) ; Check for negative 
05 13 OCAC 106§ BEQL 35$ No 
1C AC 1C AC CE OCAE 144 MNEGL TPASL arte a TPASL ANUMBER(AP) ; Complement 
51 AGS OA ace 1444 35$: MOVZBL PRM$B"POS(R4) ,R1 Get 
oO 14 AG 51 1C AC FO OCB? 1445 INSV TPASL “NUMBERCAP) , R1 .PRMSB_ STPE CRA). 28); Set value in field 
8E DO OCBE 1446 40S: MOVL SP)+ RO ; Get completion status 
1F 19 OCC1 1447 BLSS : Low value Limit 
18 50 €8 OCC3 1448 BLBS RO,50$ 3; Success, return 
OCC6 1449 
CC6 1450 LIF NDF ,CMDSW ; SYSBOOCMD 
CC6 1451 
CC6 1452 MSG <owey ous set to max imum> 
F337° 0 OCCé6 BSBW BOOSFA 
74 65 73 20 65 75 6C 61 56 2D 57 D Oocc9 ~ASCIZ Roevatue set to maxinun\ : 
00 6D 75 6D 69 78 61 6D 20 6F 74 20 OCDS 
4 OQOCE1 1453 508: RET _ .  ¢ and return 
CE2 1454 60$: MSG <-W-Value set to minimum> 


J 13 
SYSBOOCMD = Command parsing for SYSBOOT . SEP-1 741 ees Macro Vv04-00 Page 33 
v04-000 BOOSSETVALUE = Store parameter value 4-SEP-19 1984 99: $333) :31 feoors sre SYSBOOCMD.MAR; 1 . (2) 
F31B° 30 OCE BSBw BOOSF ACMSG 
74 65 73 20 65 75 6C 61 56 3) 7 cE -ASCIZ \-W-Value set to sinteun\ : 
00 6D te 6D 69 6E 69 6D 38 6F 74 5 CF1 
4 CFD 1455 RET 
CFE 1456 65$: MSG sor eanetet is not numer ic type> 
F2FF* 30 cre BSBwW popes ACMSG 
72 65 74 65 6D $ 72 61 50 45 + -ASCIZ \-E=-Parameter is not numeric type\ 3 
65 6D 75 6 34 4 6F oF $8 69 8 DOD 
00 65 70 79 74 20 63 69 p19 
D 1457 RET 
D 1458 
4 1323 o1FF 3 SYSGENCMD 
OD 1461 PUSHAB PRMST_NAME(R4) ; Address of parameter name 
OD 1696 PUSHL ; Number of FAO param's 
0D 146 PUSHL #SYSG$_SETMAX : Error status 
OD 1464 BRB 70$ 
+4 1002 50$: RET 
0D23 126 60$: PUSHAB PRMST_NAME(R4) ; Address of parameter name 
OD23 1468 PUSHL 1 : Number of FAO param's 
et 1469 PUSHL #SYSGS$_SETMIN ; Error status 
OD2 1470 BRB ; 
ot 1471 65$: PUSHAB PRMST_NAME(R4) ; Address of parameter name 
OD \az¢ PUSHL #1 3 Number of FAO param's 
0D23 147 PUSHL o1"er NOTASCII ; Error status 
0D ; 1474 70$: CALLS G*LIBSSIGNAL 3 Signal 
OD23 1475 MOVL oeee NORMAL ,RO 3; Set success 
0D23 1476 RET 3 and return 
0023 1477 
0023 1478 .ENDC 
et 1479 
0D23 1480 : 
OD23 1481 : Set to default value 
OD2 1686 
0D93 1488 BOOSSETDEF: : 
OOFC OD23 1484 ~ WORD “M<R2, +f R4,R5,R6,R7> : 
54 20 AC DO OD25 1485 MOVL TPASL. PARAM(APS ,R4 : Get address of parameter block 
EO OD29 1486 BBS sPRnST TASC : Ascii pereneter! 
08 10 A4 0D2B 1487 RMSL_FLAGS(R4),1 : If yes 
1C 04 A d0 44 1488 MOVL PRnge “DEFAULT (RA), FPASL -NUMBER (A ); Set default as value 
FF13 31 OD 1489 BRwW BOOSSETVALUE+2 Call routine to set the value 
14 AC 04 AS 9E 0D36 1490 10$: MOVAB PRMSL  DEFAULT(RG), TPASL -ioxEnerR¢AP): Set ptr to default string 
54 14 AQ QA 9038 1491 MOVZBL aia SIZE(R4) ,R4 Get size in bits 
10 ac «6554—CiC«*aCDSBEC78sOOD3F 1498 ASHL RZ, TPASL TORENCNT (AP Set size in bytes 
09" 11 OD45 1493 BRB Boosee tase lize Call routine te set the default string 
See 1495 ; 
0D47 1496 : Set acsii parameter to all blanks 
0047 1497 ; 
OD47 1498 BOOSSETBLANK: 
OOF C D47 1499 eWORD “M<R2,R3,R4,R5,R6,R7> 
10 AC 04 0D49 1500 CLRL TPASL. TOKENCNT (APS i Set string count zero (null string) 
02° 11 ee 1381 BRB BOOSSETASCII+2 ; join common code 


ee 


K 13 . 
- sing for SYSBOOT 16-SEP-1984 5:41 pees Macro v04-00 ; Page 3 
vOee000 Booseeragchi Action routine to set ASC 4=-SEP-1984 4 9%: 82: :31 Eeoors sre SYSBOOCMD.MAR; 1 (2) 
¢t 1 : : ~SBTTL BOOSSETASCII = Action routine to set ASCII parameter type 
Rte 12 5 ; — TBASLSPARAA (AP) - Address of parameter descriptor 
D4E 150 : TPASL_TOKENCNT(AP) = Length of parsed string 
D4E 1308 | ; TPASL_-TOKENPTR(AP) = Address of parsed string 
D4E 1510; 
abet 1313 ; renee Spt is checked to ensure it is ASCII type, then om 
OD4E 1318 of * che parsed string is compared to size of parameter. If n 
OD4E i218 3 error, then parameter is set to new string. 
DSE 1 
TASCII:: 
core FEE HS Mommas es nS. 06.0 
OD “ 
RITESYSPARAMS,- ; Set an value => write current needed 
oH Be eS SBRAREC 
ODsSc 1 : 
AP),2$; Make blanks no senger significan 
” 7 M0 0° 3 Boas 1258 2s BOVE TPASY PanAMCa Paste oeesingt na Rogge parameter block 
10 A6 i EO 3062 1335 BBS PRS ASCII, PRMSL_ deateaa ae * 17 ecké then tach ene 
0007 31 OD6A 1526 BRW 90$ : hon thc deal 
25 tS ae Sal 1254 ” ts ae en : Sextet atae from bit to byte count 
* #8 $k 1 0D76 1529 CMPL TPASL_TOKENCNT(AP),R7 7 are with parsed string size 
ak he 0$ B OD7A 1530 BLEQU 108 ~ ; ¢ Leau, then fits 
oon 31 Op7c 1531 RW 80$ 3 bise string too big 
01 OD OD7F 1532 108: PUSHL a6 3; Assume success mei 
5E 10 C2 0D81 1833 SUBL 3; Make room for ectouerd buffer on stac 
53° 14 AC «(DO «(0DB4 «(1534 MOVL Tpade _TOKENPTR(AP).R3  ; Get address of token 
4 10 AC DO OD88 1535 MOVL TPASL— pratey) ae R4 3; Get count of token 
20° 63 54 2C OD8C 1536 MOVCS R4,(R3) _ “A/ / gee + (SP) * cMBOPY S$ om ghost penaerer sty "etait 
» OB Re GE 99 Ay OO 8A 1335 eRPcs apoocnnsy AMS A tNiReo “. Compare min value with parsed value 
A6 04 D9F 1539 #4 PRMSL ers 3 
OF 1€ ODA2 1540 BcEau 20 : Branch if input is greater 
08 A6 04 2C ODAS 1541 MOVCS #4,PRMSL_MIN(R6),- ; Set min value 
57 08 A6 DAB 154 PRMSL MIR(R6), R?. (SP) ¢ 
- 10 AE 0¢ CE ODAC 1348 MNEGL : Ind error 
OC A6 be » Opes 1348 20$: emecs #4 ,,PRMSL_MAX(R6),- ; Compare max value with parsed value 
7 OC A6 ODB6 1546 PRASL MAR (RE) ),R7.(SP) 
wie . 1E OQODBA 1547 BGEQ :; Branch if input is greater 
OC A6 88 2c DBC 1548 MOVC #4, PRASL_MAX(R6),- 3; Set max value 
5 +3 A6 ODcO 1549 PRMSL sad ge 3 
- D4 ODC4 1550 CLRL PEARL AD 3; Ind error 
6 0 ODC7 1551 30S: MOVL PRM$ Ré) (R 3; Get address parameter 
a 8 DCA 155 . MOVAB B00$ amtROJ,RO 3; Add present base of parameters 
so REE st C DD 1238 SUBL r ashes TPE ORRAR RO 3; And subtract Link-time base 
war | ae. at: 1554 Movc3 4 (SPY, (RO) : Set value in system 
10 CO ODDD 1555 ADDL 14, SP 3 Remove value from stack 
0 ODEO 155 MOVL  (SPS+,RO : Get status 
50 4 "9 ODEs 1839 BLSS 0$ 3: If neg, value set to min 
18 50 =«EB +t) 1328 BLBS RO,50$ : If LBS; success 
ODES 1560 .IF NDF ,CMDSW 3 SYSBOOCMD 


———_— -——--— —} 


L 13 
= Command ress for SYSBOOT i ak ath 9 90:03:41 noth Macro V04-00 
BOOSSETASCII = Action routine to set ASC 4-SEP-1984 06:31 BOOTS .SRCJSYSBOOCMD.MAR; 1 
DE 136) 
: DE8 1562 MSG <-W-Value set to maximum> 
65 75 6C 61 56°50 57 2b ODE "TEih. Va-telue 00t 96 ecataak 
‘ “W-Value set to maximum : 
69 78 61 6D 20 6F ; 0 OF? 
4 34 1563 50$: RET 3 and return 
E04 1564 60S: MSG <-W-Value set to minimum> 
FIFO’ 0 OE04 BSBW BOOSF ACMSG . 
65 75 6C 61 56 2D 37 D E07 eASCIZ \-W-Value set to minimum\ : 
69 6€ 69 6D 20 6F 74 20 0E13 
04 OE1F 1565 RET : 
pest 1306 
OE 1567 .IFF 3 SYSGENCMD 
0E20 1568 
0E20 1399 PUSHAB PRMST_NAME(R4) ; Address of parameter name 
0E20 1570 PUSHL #1 : Number of FAO param's 
0E20 1571 PUSHL #SYSG$_SETMAX ; Error status 
BESS 13/6 BRB 70$ 
0E20 1573 50$: RET 
OE20 1574 
QE20 1575 608: PUSHAB PRMS$T_NAME(R4) ; Address of parameter name 
0E20 1326 PUSHL #1 3; Number of FAO param's 
0E20 157 PUSHL #SYSG$_SETMIN 3; Error status 
Bese 1578 70$: CALLS #3,G*LTB$SIGNAL ; igna 
0E20 1579 75$: MOVL #SS$_NORMAL ,RO ; Set success 
0E20 1580 RET 3: and return 
BES? 1581 
E20 1286 -ENDC 
OE20 158 
0E20 1584 IF NDF ,CMDSW ; SYSBOOCMD 
OE20 1585 
OE20 1586 80S: tf 7 - 
OE20 1587 MSG <<E-Specified string is too long> 
FIDD' 30 Bese BSBW BOOSF ACMSG ’ o> 
69 63 65 70 53 2D 45 2D OE2 eASCIZ \-E-Specified string is too long\ 3 
20 67 6E 69 72 74 73 20 OE2F 
00 67 6E 6F 6C 20 6F 6F pee 
04 OF&43 1588 RET 
pee? 1589 
E44 1590 90S: . 
0E44 1591 MSG <-E-Parameter is not ASCII type> 
FIB9® 30 0E44 BSBW BOOSF ACMSG ’ . 
6D 61 72 61 50 20 45 30 0E47 .ASCIZ \-E-Parameter is not ASCII type\ : 
20 74 6F 6E $9 3 69 20 TH 
00 65 70 79 74 20 49 OESF 
64 GEOG 1398 RET 
E67 159 7 
E67 1594 oIFF 3; SYSGENCMD 
E67 1595 
E67 1596 80S: 
E67 1597 PUSHL #SYSG$_STRTOOLNG : Error status 
E67 1598 CALLS #1,G*LTBSSIGNAL ; Output it 
E67 1599 BRB 75$ 
E67 1900 
E67 1601 90$: 
0E67 1606 PUSHAB PRMS$T_NAME(R4) : Address of parameter name 
0E67 160 PUSHL #1 ; FAO arg count 


BOOSSETASCET = Action routine to set ASC Z-SEP-1986 99:06:81 LBooYs:smeisrsbodcnD.mar:1 29° 73) 


1604 PUSHL ANS NOTASCII ; Error status 
1605 CALLS G*LIBSSIGNAL ; Output it 
606 BRB t 6 

60 
608 


-ENDC 


N 13 
or SYSBOOT 16-SEP-1984 


SYSBOOCMD = Command parsing f 05:41 VAX/VMS Macro v04-00 Page 37 
v04-000 BOOSSHOVALUE = Ation routine to show si 4-SEP-1984 re :06:31 BOOTS. SRCJSYSBOOCMD.MAR; 1 *s (2) 
pEG? 1919 . «SBTTL BOOSSHOVALUE = Action routine to show single value 
Oe67 161¢ ; Input Parameters 
344 1917 $ TPASL © PARAMETER (AP) - Address of parameter block 
£67 1615 BOOSSHOVALUE: : 

003C sof 1918 «WORD “M<R2,R3,R4,R5> : 
0£69 1618 : Output header 
0E69 181 3 A 
QOE69 1620 .IF DF ,CMDSW ; SYSGEN Only 
0E69 1621 BBC #BOOCMDS$V_TERMINAL ,- ; Output header to terminals only 
CE69 16 ¢ BOOSGL_CMBOPT,10$ $ 
QOE69 16 -ENDC 
0E69 1624 

009 of 28 OF69 1625 MOVC3 #SDVHDRLE 
F898 CF OF ZF OE6D 1626 SDVHDR HO §AB.B FER : Move in string 
F991 CF 009E BE BO 0OE73 1627 MOVW #SDVHDRLEN, ni0SGu _OUTLEN ; Set Length 
0093 30 been + 8 BSBW RIOSOUTPUT_LIN : Output Line 
54 20 AC DO OE7D 1630 10$: MOVL TPASL_PARAM(AP) ,R4 ; Get address of parameter block 
FB93 30 OE€81 1631 BSBW BOoOo$sSAOwV : Show value 
04 bese 1636 RET 3; Return with BOOSSHOWV status 


rc- --- - _~—-- _ . ——__—__+_—__— 
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SYSBOOCMD - Command parsing for SYSBOOT 16-SEP-1984 00:05:41 VAX/VMS Macro v04-00 Page 38 
v04-000 BOOS$SHOALL - Action routine to show all rae 7 99:88; 41 teoors. sre SYSBOOCMD.MAR; 1 . (2) 
OF 5 : -SBTTL BOOSSHOALL = Action routine to show all parameter values 
f : Input Parameters: 
OE 5 (AP) Pointer to the TPARSE table 
OE ; TPASL_PARAM(AP) The mask of acceptable types 
OE ; Output Parameters: 
3 ; ALL parameters except special parameters are displayed. 
OE BOOSSHOALL: ; 
OOFC 3 ~ WORD “M<R2,R3,R4,R5,R6,R7> : 
bE IF DF ,CMDSW : SYSGEN ONLY 
OE BBC #BOOCMD$V_TERMINAL,- 
OE BOOSGL_CMBOPT ,5$ ; If terminal, 
OE CLRQ -(SP ; clear the whole screen 
OE CALLS #2,G*ICRSERASE_PAGE 
bE S$: 
OE : Format "Parameters in use message’ 


PAA AAA AAD UU BE EEE EWA 


SOOO ODD ww SNS SSS NOT 
DOONAN ENN OC OD NAUES WN 9 ODNAU EWN 0 OD NOAU EWN O OONAUSWN-OOONOU 
= 


8 OO O00 0 00 09 09 00 Cd 00 00 09 09 09 CD G9 CD CD 09 O89 CD CD CD OD G9 CO CD CD OD CD: 


ee ae ee ee ee ee ee ee ee et ee ee ee ee ee a ek dd dd 
PEA AAAAAAAAAAAAAAAAAAA AAPA AS HAAS PAEAAA AAA AAA AAAE AA AAA AAA AAO 


$FAO_S CTRSTR = CTR_PARINUSE,- 


OUTLEN = RIOSGW OUTLEN,- 


OE 
OE x 
OE QUTBUF = RIN$AB_OUTBUF ,- 
OE P1 = BOOSGL_PARINUSE 
3 BSBW R1O$OUTPUT_CINE 
ge -ENDC 
OO9E 8F 28 OE MOVC3 #SDVHDRLEN,- 
F87A CF OF 7D? CF OE SDVHDR,RIOSAS_BUFFER ; Move in string 
F973 CF O009E 8F BO OE MOVW #SDVHDRLEN,RIOSGW_OUTLEN ; Set Length 
0075 30 BE BSBW RIOSOUTPUT_LINE ; Output Line 
OE olf DF ,CMDSW ; SYSGEN ONLY 
OE 7 BBC #BOOCMDSV_ TERMINAL ,- : 
OE ? BOOSGL_CMBOPT .7$ ; If terminal, | 
OE 7 PUSHL #24 ; use only 24 Lines / 
OE 7 PUSHL #5 ; and scroll only the bottom portion 
OE 7 CALLS #2,G*SCRSSET_SCROLL 3; and setup a scrolling region 
0E9B 75 7$: 
OFoB ; = 
54 OOO000000°EF 9E OED 7 MOVAB BOOSA_PRMBLK,R4 3; Set starting parameter block address 
55 0 AC DO Ag r MOVL TPASL_PARAM(AP) ,R5 ; Set mask of acceptable types 
tear : 3; Loop through all parameters 
64 05 OFA6 1683 10$: STL (R4) ; Check for end of List 
1¢ 613 «=QEA8 8 BEQL 50$ : _yes, done 
0655 1F £EO OQEAA 8 BBS #PRMSV_ALL,&5,20$ ; Branch if SHOW/ALL 
10 AS) «555s Beas 8 BITL R5 PRMSL_FLAGS(R4) > Is this one to output? 
o¢ 13 O€B 8 BEQL «= 40 ; No, try another _ 
07 €1 QEB4 88 20$: BBC #PRMSV_SPECIAL,- ; Yes, is it a special parameter? 
04 10 A4 B6 168 RMSi_FLAGS(R4S , 308 : Branch if not ' 
03 55 O07 €1 oes . 308 BBC #PRASV_SPECIAL.R5,40$ ; It’s special - branch if unasked for 


——— 


| SYSBOOCMD 
v04-000 BOOSSHOALL = Act 
FBS7 4 =6.330-—s«éOO# 169 
$4 32 AG 7 ECC 1838 40$: 
a EC4 1694 
ECS 1695 50$: 
EC6 1696 
EC6 1697 LIF 
EC6 1698 
EC6 1972 
EC6 1700 
EC6 1701 
—C6 17 § 
33 1703 60%: 
C6 1704 .ENDC 
EC6 1705 


oOo 
= 
OOoooooooor 


BSBW BOOSSHOWV 


MOVAB PRMSC_LENGTH(Ré  ,R4 

BRB 10$ 

DF ,CMDSW 

est #BOOCMD$V_TERMINAL,- 
BOOSGL_CMBOPT ,60$ 

PUSHL #24 

PUSHL #1 

CALLS #2,G*SCRSSET_SCROLL 

RET 


C 14 
= Command parsing for $YSBOOT 16-SEP-19 : 
. ton routine to show all ae ets 4 99:8 


. 
Ld 
. 

. 


Pete Se te 


3 AX/VMS Macro V94-00 
731 (CBOOTS.SRCJSYSBOOCMD.MAR; 1 


Display values 


Page 73 


; Next parameter block 


If terminal 

Use only 24 Lines 

and scroll only the bottom portion 
and setup a scrolling region 


2) 


eS 


SEEEEEEEEEEREEEEREEEEEEEEEEE 


SYSBOOCMD 
v04-000 


| 00000000" 8F 
00 00000000 GF 


56 00000000°EF 
F9O2A CF 


50 F923 
86 
66 F91B DF 
50 


oOVMNIMea COUT 
=OC007" =O 


= Command parsing for SYS$B00T 


BOOSSHOALL = Action routine to show all 


EC? 1707; 
EC? 1708 : 
OEE 1509 
EC7 1710 BOOSSETSTART: 
OOFC OFC? 1711 WORD 
EC9 218 
E2 O&C9 171 BBSS 
OECF 1714 
OEDS 1715 1$: 
9& OEDS 1216 MOVAB 
D4 OEDC 171 CLRL 
91 OED 1718 CMPB 
18 OEFE3 171 BGEQ 
04 OEE 1720 RET 
9A OEE6 1721 108 MOVZBL 
90 OEEB 1288 MOVB 
8 OEEE 17 MOVC3 
C OFFS 1724 MOVZWL 
04 OFF? 1725 FT 
OEFB 1726 


eSEp 1986 23:00:31 


: Set name of startup command file 


“M<R2,R3,R4,R5,R6,R7> 


AX/VMS Macro V04-00 
BOOTS.SRC SYSBOOCMD .MAR; 1 


Page 40 
. (2) 


#EXESV erainte t,o th Set startup name => write current needed 


G*EXESGL_DYNAMIC_FLAG 
L“EXESGT_STARTUP,R6 


pi Assume 
¢ 7] -BOOSES_FILELER 


Check 
Contin 


BOOSGB _FILELEN,RO 
RO. @BOOSGL_F ILEADDR, (R6) 
#1-RO 


Get co 


Set fi 
Return 


Bete Se Se Ge Se Se Ge Se Se 


error 
for fit 
ue if legal size 


unt 


Set count for string 


Se ae TR Re 
success indication 


Point to slot for startup file name 


a 


E 14 
SYSBOOCMD = Command persing for SYSBOOT ak Sat 4 90:03:41 (th Macro V04-00 Page 41 
v04-000 BOOSSHOALL = Action routine to show all  4-SEP-1984 25:06:31 ([BOOTS.SRC SYSBOOCMD .MAR; | (2) 


lf NDF ,CMDSW ; SYSBOOCMD ONLY 
-SBTTL BOOSMSGOUT = Output message 


EF 
E 
E 
OE 3 bank toe Sequence: 
BE 3 SBW BOOSMSGOUT 
BE ; -ASCIZ message_string 
OE BOOSMSGOUT: : ; 
ms re& CLRQ -(SP) ; Null read buffer 
08 at DD OE PUSHL 8(SP) ; Address of string 
gous i 0 FB 3 CALLS #3,L*BOOSREADPROMPT ; Output string 
9— FAOO 8F O00 3A OF LOCC #0,#64000,a(SP)+ 3; Find end of string 
5 DO OF MOVL #1,R0 ; Set success code 
01 Al 7 of JMP 1(R1) ; Return to caller 


3 


WIHWILEWIRO ROO Noy 2 BOOT TTT TH 


NOWWO SOO — TF DWOOCOCCOCOOCOCSOOCOCOD & FU & Wace 


+ 
This routine is in RMSCONIO for SYSGEN, is used here to map SYSBOOT 
calls to this routine into calls to BOOSREADPROMPT. 


RIO$GW_OUTLEN = Length of a to output 
RIOSAB_BUFFER = buffer to outpu 


. 
° 
° 
° 
. 
° 
o 
e 
7 
o 
o 
° 
* 
. 
° 


RIOSOUTPUT_LINE: : 


7. 7D ova R1,-(SP) 3; Save R1,R2 
51 F C MOVZWL RIOSGW_OUTLEN,R1 : Set Length 
52 FEF CF 9E MOVAB RIOSAB_BUFFER,R2 ; Set address . 
51 6241 YE MOVAB (R2)CRTJ,R1 ; Set address of end of strin 
61 OOO00A0D 8F 00 MOVL #*XOO000A0D, (R1) ; Set CR, LF, zero byte at en 
~— 6 CLRQ -(SP) ; Null read buffer 
52 OD PUSHL Re ; Address of string 
O0000000'"EF 035 FB CALLS #3,L*BOOSREADPROMPT ; Output string 
51 8E 7D mMOVQ (SP)+,R1 ; Restore R1,R2 
05 RSB ; Return 


a a kk ek ek ed dd dd 
Se in in Bn Bin in Ne Bi ti i i Bi Bi Bi Bn Bn i Bt te te ee | 
DDE XPXA PADMA BB EE EAN Iino) 
NOAUS WR @O ODNAU EWN 0 OONAUES WN OVOONAOUS WOO 


Co 

ea | 

n 

Ww 

oO 
SOOOCCCOOCOSOOSOOOCoOoOoOOCOOoOoOoOoOoooO 
ie tes tes isis ie ie ie ie ie tee ee ee 


eee 


-—_———_——— | 


i ak at 89 90:03:41 aes Macro V04-00 Page 4 


| 
| Srpepo eno = Command parsing for SYSBOOT 
| VO4-0 DUMMY C ND ROUTINES FOR COMMANDS NOT 4-SEP-19 6:31 BOOTS.SRCJSYSBOOCMD.MAR; 1 
OF 37 1768 -SBTTL DUMMY COMMAND ROUTINES FOR COMMANDS NOT IN SYSBOOT 
F357 1770 BOOSSET_OUTPUT:: 
F37 1771 BOOSUSEACT:: 
F37 ere SYSSASCTOID:: 
oF 7 17735 SYSSFILESCAN:: 
F37 1774 
0000 OF37 1775 -WORD 0 ; Null entry mask 
OF39 1776 MSG mam egy error> ; SYSBOOT error message 
FOC4' 30 OF39 BSBW BOOSF ACMSG : 
72 65 20 78 61 74 6E 79 53 2D 45 2D OF3C eASCIZ \-E-Syntax error\ : 
00 72 6F 72 OF4B 
50 OF4C 1777 MOVL #1,R0 3 
OF4F 1778 RET ; 
OF50 1779 a8 
OFSO 1780 -ENDC ; End of SYSBOOT conditional code 
OF50 1781 
OF50 1782 END 3 


G 14 
_ SYSBOOCMD - Command parsing for SYSBOOT bp a at 9 90:03:41 td Macro v04-00 Page 43 
Symbol table 4-SEP-1984 25:06:31 ([BOOTS.SRCJSYSBOOCMD.MAR; 1 (2) 
| SSSCNT = 00000003 BOOCMDSM_DISHEX = 8 9 
| SSSFLG = FRFFFFFF BOOCMDSM_NOCHECK = 1 
| SSSKEY = 00000021 BOOCMDSM~SETOUTPUT = 00008000 
SSSKFG = FFEFFFFF BOOCMDSM_ TERMINAL = 10000 
$ = S44 4 BOOCMDSM_USEF ILE = 0000040 
SSSTMP = 00 443 R 04 BOOCMD$V_CONT = 
+ + tl = 44 4444 R 03 BOOCMDSV_DEF AULT = 0 
$T = 00000004 BOOCMD$V_DISHEX = $444 
ASCII 0000008C R 02 BOOCMD$SV_NOCHECK = 0000000 
ASCSTR siete as 3 R 06 BOOCMDSV_USEF ILE = 4 $4 40 
BLANKS 00000579 R 06 BUFFER_STZE = 00 ed 0 
BOOSA_PRMBLK eererere§ =X 8606 CR = : : 990 
BOOSA SYSPARAM eeeeeeee§ =X = =—06 CTRLSTR 0 4 R 06 
BOOSCAE CK OOO000BC6 R 06 CTR_PARINUSE 44 R 06 
J UF SZ = 000000C8 G CUR BLANKS 00000567 R 06 
BOOSC COMSTRLEN = 00000400 DISABLCMD 00000042 R 02 
T OOOOOCSA R 06 ENABLCMD 0000004C R 02 
B00 ereereee EXESA_SYSPARAM eeeerene x 06 
BOOSF ILESPEC Q00009A0 RG 06 EXESC _SYSPARSZ teneeree =X 06 
BOOSGB_FILELEN 00000800 R 6 EXESGC_DYNAMIC_FLAGS eeeeeeee = X 06 
BOOSGE TPARAM 00000816 RG 06 EXESGL_TODR eeeenere xX 06 
BOOSGIVEHELP aeareere =X be EXE$GQ_TODCBASE eereneee = §=6 = =606 
BOOSGL_CMDOPT 00000000 RG 0 EXESGT STARTUP eeeeeeeer = ¥ 06 
$GL_DOT 00000024 RG 06 EXESV_QRITESYSPARAMS aeenenee =X (06 
BOOSGL_F ILEADDR 0000080 06 EXIT 0000099C R 06 
GL_PARINUSE 00000812 R 06 FF = 0000000C 
BOO$GQ_F ILDESC 00000028 RG 06 FILESPEC OGOOOIEA R 02 
SGT_COMBU 00000070 RG 06 GETDATA QOOOOBOC R 06 
BOOSGT_COMST 00000138 RG 06 HE XNUM 00000202 R 02 
BOOSGT_CURRENT 00000812 R 06 HE XQUAL 00000194 R 02 
BOOSGT_DEF AULT 00000812 06 HE XQUAL2 0000018A R 02 
BOOSGT_F ILNAME 00000030 RG 06 HEXST Q00005A6 R 06 
BOOSGT_PROMPT eeeerere§=X 06 KEYTBL 00000000 RG 03 
BOOSGT_SYSNAME 00000538 RG 06 LF = 0000000 
BOOSGT  SYSPARNAME 00000548 RG 06 LIBSTPARSE eeeeeere§ §=6X = =6—06 
BOOSMSGOUT QOOOOEF8 RG 06 LIBS$_SYNTAXERR aeeeeeee§ =X = 06 
BOOSNOCHE CK 00000888 R 06 NCTRCSTR OQOOO060E R 06 
BOOSREADPROMPT eereeere =X 06 NUMBER QOOO0OIF2 R 02 
BOOSSEARCH QO000BD4 RG 06 OP$_ACBD = 0000006F 
BOOSSETASCII QOOOOD4E RG 06 OP$_ACBF = 0000004F 
BOOSSE TBLANK 00000D47 R 6 OP$_ACBG = QOO04FFD 
BOOSSET 00000023 & 06 OP$_AC = QOOO6FFD 
BOOSSETSTART QOOOOEC? R 6 OP$_ADDD = 00000060 
BOOSSE TVALUE BR08 C47 RG 6 OP$_ADDD = tet oe 
BOOSSET_OUTPUT OO00F 37 RG 6 OP$_ ADDF = 00000040 
SHOALL QOOO0ESS R 06 OPS" ADDF = 00000041 
BOOSSHONAME S 000008 ¢ R 06 OP$_ADDG = 000040FD 
BOOSSHOSTART 00000895 R 06 OP$_ADDG = 000041FD 
BOOSSHOVALUE it E67 R 6 OP$_ADDH = 000060FD 
BOO$SHOWV OOO00A17 R 6 OP$_ADDH = 000061FD 
BOOST _DYNAMIC 0000564 R 6 OP$_ADDP4 2 Bob oot 
BOOST _NODYNAMIC 000 296 R 6 OP$_ADDP6 = 00000021 
SEACT si F37 RG 96 OP$_ASHP = 000000F8 
BOOSUSE CUR 00009E0 RG 06 OP$_CLRD = 0000 4) 
BOOSUSEF ILE tereeeee =X = 02 OP$_CLRF = 0000 o 
BOOCMD$M_CONT = 0000010 OPS$_CLRG = 0000007C 
BOOCMD$M_DEF AULT = 0000020 OP$_CLRH = 00007CFD 


| 
‘abe Ab Xai eed SSB 2 el 2 ALIS eae YP le 


H 14 


CED. “0S: be Page 44 
| $YSBOOCMD <Aegmamamteelhcts: Seite. peel soarae 6: 1o7$eb=1982 98:08:31 LBoore sneisvsBoccho.mar;1 '2% ¢3y 
| Symbol table oosare 
71 OP$_DIVH : 
ot sp : susan eat : He 
OPS_CM = BoObp IED OPE tol TPC = 90000088 
OP$_CMPH = O0007 IED +4 a = 00000074 
ot in = 00000087 OPS-ERODF : 9900054 
OPS_CMPP4 = 0000 OOS EnonG = 000054FD 
OPS$_CRC = 90000008 Oe EMD = 000074FD 
OP$_CVTBD me titties OPSTRATCHC = 00000039 
OP$~CVTBF = 0000004C ™ = 0000007 
OPS-CVTBR = D0006tFD OPS-HNEGE = SHE, 
erie : sei aoe : Hasse 
OP$~CVTDH = 0000 FD OP one - St 4 
OP$_CVTOL = 0000006A po Mad = 000050FD 
OP$"CVTDW = 00000069 e-es = 000070FD 
OP$"CVTFB = 00000048 ok Ma = 00000034 
OP$-CVTFD = 00000056 OP$"MOVT oe 9000002E 
OPS "CVTFG = 000099FD OPS"MOVTUC = 0000002F 
OP$"CVTFH = 000098FD PS "MULD = 00000064 
OPS ~CVTFL = 0000004A a8 es = 00000065 
OP$ “CVTFW = 00000049 OP$_ F> = 00000044 
OP$_CVTGB = 000048FD OPS "MULES = Boonoees 
OP$_CVIGF = 0000336D rt Sad = 000044FD 
OP$~CVTGH = 000056FD it Me = 000045FD 
oh = 000069 OPS"MULH = 900064 
OP$~CVTHB = 000068FD OPS“MULH . tt Fa 
OP$~CVTHD = QO00F7FD ot = 00000075 
OP$~CVTHF = QOOOF6FD P$"POLYF = 00000055 
OPS_CVTHG : OOODGAFD OPS~POLYG = 900033F0 
OPS-CV THU = 000069FD OP$-POLYH = B0000ER 
OP$~CVTLD = 0000006E OPS "SCAN = Peon OngA 
“CVILF = O000004E OP$~SPANC = 00000028 
OP$ "CVTLG = QOO04EFD OPS SUBD? o 90000062 
CVTLH + ro OP$~SUBD3 = 0000006 
OPS" CVTLP = 000000F9 -2 UBF = 0000004 
OP$_CVTPL = 00000036 ot = $9000048 
OPS_CVTPS = 00000008 OP$ "SURG = 000042FD 
“CVIPT = 00000024 OPS suBG mt Seok 
OP$_CVTROL = 00000068 OP$SUBH = 900062FD 
OPS~CVTRFL = 00000048 sett = 0000636D 
OPS _CVTRGL = ooeeED OP$~SUBP4 = 000000 
OP$~CVTRHL = Q0006BFD ~2UBP = 000000 
oe Ab = 00000009 OP$~SuBP = Bp 8806 
OPS-CVITP = 9000060 OPS-TSTF = 90000058 
6 he: = 00000040 OP$-TS16 = ooonaaeD 
~CVTWG S Baihteere PARMBLK 99000000 R 06 
na eatiy : 00000066 ARSE 09900015 dr ig 
$-DIVD = 0000006 N$B_POS . TF 
real : Bast st ee : BSS 
a AY . GoagcerD PRMSL-ADDR . ith 
OP$~DIVG = 000047FD PRMSL-D 


SYSBOOCMD = Command parsing for SYSBOOT Mk at b+ 9 90:03:41 yaneves Macro Vv04-00 Page 45 
Symbof table 4-SEP=1984 25:06:31 ([BOOTS.SRCJSYSBOOCMD.MAR; 1 (2) 
PRMSL_FLAGS = 0 10 TPASL_STRINGPTR = 000 of 
PRMSL_MAX = 8 TPASL_TOKENCNT = 1 
PRMSL_MIN = TPASL_TOKENPTR = 14 
pRASA_ACP = 00 0 TPASM_ABBREV 2 00002 
PRMSM_ALL = $8 TPASM_BLANKS = 000 49 
PRMSM_CLUSTER = TPASV BLANKS = 00000000 
PRMSM_DYNAMIC = 00000001 TPAS_ALPHA = 38 1EE 
PRMSM_JBC = 0000001 TPAS_ANY = QOQ001ED 
PRMSM_LGI = 0002000 TPA$_BLANK = Boer S 
PRMSM_MAJOR = 0000040 TPAS_DECIMAL = Q000001F 
PRMSM_NEG = 00001000 TPAS_DIGIT = QOOOOTEF 
PRMSM_POQL = 4a TPAS_EOS = 000001F7 
PRMSM_RMS = 00 TPAS_EXIT = FRFFFFFF 
=SCS = 0000400 TPAS_FAIL = FFFFFFFE 
PRMSM_SPECIAL = S444 44 TPAS_FILESPEC = He 
PRMSM_SYS = 0000004 TPAS_HEX = 000001F5 
PRMSM_SYSGEN = 00000004 TPAS$_IDENT - 4 ss gtd 
PRMSM_TTY = 00002000 TPAS_KEYWORD = 00000100 
PRMST_NAME = 00000016 TPAS_LAMBDA = 000001F6 
PRMST_UNIT = 00000026 TPAS_MAXKEY = 0000000C 
PRMSV_ALL = 0000001F ~OCTAL = Q00001F4 
PRMSV_ASCII = 00000010 TPAS$_STRING = eae at 
PRMSV_DYNAMIC = 00000000 TPAS_SUBXPR = 000001F8 
PRMSV" SPECIAL = 00000007 TPAS$_ SYMBOL = 000001F 1 
Ab eae eh) a 06 TPAS_UIC = 000001EB 
LINE 00000850 R 06 USEACT 000001D2 R 02 
RIOSAB _BUFFER eae ta RG 06 USECMD QO0001A6 R 02 
R1O$AB_OUTBUF 00000703 RG 06 USECUR 000001C8 R 02 
R1IO$GW_OUTLEN 00000808 RG 06 USEDEF 000091DC R 02 
OSOUTPUT_LINE 00000F 10 RG 06 VALUE QO000020E R 02 
SAVE _TODCBASE 00000004 R 05 
VE-T 0000000C R 05 
SCTRCSTR 0000621 R 06 
VHDR 00000665 R 06 
SDVHDRLEN = 0000009E 
SEPARATOR 00000206 R 02 
SETCMD 00000056 R 02 
SETOUTPUT QOOOOD0DAC R 02 
SETSPEC 0000080 R 02 
SETSTARTUP 00000C0 R 02 
000000D4 R 02 
SHOSWITCH 00000006 R 02 
SS$_NORMAL $0000001 . " 
STATE1 $0000 RG 02 
SYMBOL Soar Se R 02 
SYSSASCTOID 00000F 37 RG 06 
SYS$FAO aeneeere =X 06 
SYSSFILESCAN QO000F 37 RG 06 
TPASB_CHAR = 00000018 
TPA$K_COUNTO = 4454 
TPASK_LENGTHO = 00 4844 
TPASL_ COUNT = 00000000 
TPASL_NUMBER = Bay 1¢ 
TPASL_OPTIONS = : 00004 
TPASL_PARAM = 8 00 4 
TPASL_STRINGCNT = 00000008 


LS ee 2 . . — ry 


————————___— 


J 14 
SYSBOOCMD = Command parsing for SYSBOOT 16-SEP-1984 05:41 VAX/VMS Macro v04-00 P 4 
'Psect. synopsis oem: t-8Ep-198e 95:06:31 LBoore secisyseoocnp.mar;1 "29° 4%, | 
dew en ea eeec eee ew aaa 4 
: Psect synopsis ! 
peewee wer cnannmoescaa dy | 
PSECT name Allocation PSECT No. Attributes 
, 8 -« 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 < 0.) 01 ¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_LIBSSTATES 0000021 ( 536.) 8 ( ‘-3 PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 
_LIBSKEYOS 00000044 ( $3} 03 ¢ oe PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC WORD 
LIBSKEY1$ ae td ( 215.) Be a* PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC WOR 
RONPAGED_DATA 0000010 (¢ 16.) 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC QUAD 
OOCc OOO0OF5O0 ¢( 3920.) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
poem waren wena moe eee man wae $ 
H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 0:00:00.08 00:00:00.68 
Command processing 142 0:00:00.83 00:00:04.79 
Pass 941 38? 89:28-¢2 00:01:48.03 
Symbol table sort 7 00:00:02.39 00:00:04.16 
Pass 461 00:00:11.15 00:00:22.36 
Symbol table output 38 00:00:00.32 00:00:00.61 
Psect synopsis output 3 00:00:00.04 00:00:00.04 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 1629 00:01:11.03 00:02:20.67 


The working set_Limit was 2000 pages. : ; 

220699 bytes (432 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space allocated to hold 1461 non-local and 74 local symbols. 
source Lines were read in Pass 1, producing 40 object records in Pass 2. 

167 pages of virtual memory were used to define 160 macros. 


$owoeeeeccocoeccoooccccccon} 


' ' 
penne ewe mew meme me eee mo =+ 


Macro Library name Macros defined 
“$52 2S0UAcs: ROOTS. OR 7800 Ts .AL8s 1 1 
_8255$0UA28:(SYS.OBJJLIB.MLB; 1 5 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 14 
TOTALS (all Libraries) 20 


1730 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSBOOCMD/0BJ=OBJ$:SYSBOOCMD MASD$:CEMULAT.SRCIMISSING/UPDATE=(MASD$: CEMULAT .ENHJMISSING) +MASD$: (BOOTS .SRCJSYSBOOCMD/ 


CORPORATION 
-AND PROPRIETARY 


AL EQUIPMENT 
DENTIAL 


AH-BT13A-SE 
VAX/VMS V4.0 


ae 


